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1.0 


1 
SEQ C003 


GENERAL INFORMATION 


THIS PROGRAM EXERCISES TWO RXO2 SUBSYSTEMS (FOUR DRIVES), MAINTAINS 
DRIVE STATISTICS AND PROVIDES RUN SUMMARIES SO THAT SEEK AND 

DATA ERROR RATES MAY BE DETERMINED. THE PERFORMANCE EXERCISER 

WILL GIVE THE USER CONFIDENCE. AFTER RUNNING SUCCESSFULLY. THAT 
THE SYSTEM IS PERFORMING WITHIN SPECIFICATION. 


SYSTEM REQUIREMENTS 


POP-11/7LS1-11 PROCESSOR WITH 16K OR MORE OF MEMORY 
CONSOLE DEVICE (LA30, LA36. VT5O, ETC. ) 


SOFTWARE REQUIREMENTS 


THIS DIAGNOSTIC 1S DESIGNED TO RUN WITH THE DIAGNOSTIC SUPERVISOR 
AS DESCRIBED IN PARAGRAPH 2. 0. 


RELATED DOCUMENTS AND STANDARDS 


XXDP USERS MANUAL MO-11-D02QXA 
DIAGNOSTIC SUPERVISOR PROGRAM LISTING 


DIAGNOSTIC HIERARCY PREREQUISITES 


THE HARDWARE OTHER THAN THE SUBSYSTEM BEING TESTED IS ASSUMED TO 
WORK PROPERLY. FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR. 
MEMORY, ETC., DO NOT FUNCTION PROPERLY. 
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2.0 OPERATING INSTRUCTIONS 


2.1 HOW TO RUN THIS DIAGNOSTIC 


THIS DIAGNOSTIC SHOULD BE LOADED AND STARTED USING NORMAL XxXOP 
PROCEDURES. THE START COMMAND SHOULD NOT SPECIFY AN ADDRESS. SECAUSE 
THE DIAGNOSTIC HAS THE PROPER TRANSFER ADDRESS CODED INTO IT. 


WHEN THIS DIAGNOSTIC IS STARTED. THE FOLLOWING STEPS WILL OCCUR: 


PES $9 9 +9 8 8 | 
x STEP 1 & 
boo $d > 8 9 0 8 | 
A SHORT SERIES OF “HARDCORE QUESTIONS” WILL BE ASKED: 
QUESTION MEAN | NG 
L-CLK (L) N? 1S THERE AN L-CLOCK? 
P-CLK (L) N ? P~CLOCK? 
50H2Z (L) N ? 1S THE POWER 50 CYCLES (AS IN EUROPE)? 
LS! (L) N? 1S MACHINE AN LSI? 
LPT (L) N? 1S THERE A LINE PRINTER? 


MEM (K) (D) 16 ? HOW MANY K OF MEMORY ARE THERE? 


THE DEFAULTS (SHOWN AFTER EACH QUESTION) CAN BE SELECTED BY HITTING 
CARRIAGE RETURN. IT IS POSSIBLE THAT NOT ALL OF THE QUESTIONS WILL BE 
ASKED: FOR EXAMPLE. IF YOU SAY "YES" TO THE L-CLOCK QUESTION, THE 
P-CLOCK QUESTION WILL NOT BE ASKED. 


Bo S99 9 9 9 8 8 | 
% STEP 2 8 
bo S$ oS 6 $b 8 | 


WHEN YOU HAVE ANSWERED ALL THE HARDCORE QUESTIONS. THE DIAGNOSTIC WILL 
ISSUE THE PROMPT “DS-B>" FROM THIS POINT UNTIL THE TIME WHEN YOU 
RESTART XXDP, YOU WILL BE TALKING TO THE DIAGNOSTIC. NOT XxXODP. WE 
WILL REFER TO THE PRESENCE OF THIS PROMPT AS BEING IN DIAGNOSTIC 
COMMAND MODE. AS OPPOSED TO XXDP COMMAND MODE. 


AT THIS POINT YOU WILL ENTER A wens COMMAND. THIS IS NOT THE SAME 
THE XXDP “START” COMMAND, WHICH YOU ALREADY ISSUED IN RESPONSE TO 

THE XXDP DOT PROMPT. THIS “START” COMMAND CAN TAKE A NUMBER OF 

S AND FLAGS (ALL OPTIONAL) AND THE DETAILS OF THESE ARE 1 

IN “2. 3 DETAILS OF COMMANDS AND SYNTAX". HOWEVER. IN ORDER 

HE PROGRAM, ALL YOU NEED TO SAY 1S SOMETHING LIKE THIS: 
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STA/PASS: 1/FLAGS: HOE 
THINGS TO NOTE HERE: 


1. ONLY THE FIRST THREE CHARACTERS OF THIS OR ANY COMMAND. At THE 
"DS-B>" LEVEL NEED TO BE TYPED. 


2 THE “PASS” SWITCH SPECIFIES HOW MANY PASSES YOU DESIRE. A 
PASS CONSISTS OF RUNNING THE FULL DIAGNOSTIC AGAINST ALL 
UNITS BEING TESTED (THIS WILL’ BE EXPLAINED SHORTLY). ONE 
PASS IS SPECIFIED IN THE ABOVE EXAMPLE. 


3. THE “FLAGS” SWITCH MAY SPECIFY ANY OF A NUMBER OF FLAGS. BUT 
THE MAIN USEFUL ONES ARE: 


LOE LOOP ONE ERROR 





HOE HALT ON ERROR 

IER INHIBIT ERROR PRINTOUT 
THE HOE FLAG IS SPECIFIED IN THE ABOVE EXAMPLE (WE'LL SEE WHY 
SHORTLY). 


SRATIITIIE 
& STEP 38 
SISTIITIIT 


WHEN YOU HAVE TYPED IN A "START" COMMAND, THE DIAGNOSTIC WILL COME 
BACK WITH THE QUESTION "@ UNITS?" TO WHICH YOU SHOULD RESPOND BY 
TYPING IN THE NUMBER OF DEVICES YOU WISH TO TEST. 


A WORD OF WARNING HERE: THE NUMBER OF UNITS DEPENDS ON THE TARGET 
DEVICE OF THE DIAGNOSTIC. FOR EXAMPLE. IF THE DIAGNOSTIC IS DIRECTED 
AT A DISK ORIVE. THEN THE NUMBER OF UNITS WOULD BE THE NUMBER OF 
DRIVES TO BE TESTED. WHEREAS IF THE DIAGNOSTIC WAS DIRECTED AT THE 
DISK CONTROLLER. THEN THE NUMBER OF UNITS WOULD BE THE NUMBER OF 
CONTROLLERS. THE TARGET DEVICE OF A DIAGNOSTIC CAN pee BE 
DETERMINED BY INSPECTING THE “HEADER” cot ane — THE BEGINNING OF 
THE THE OPERANDS OF T 


OF E HIS “HEADER” STATEMENT 
SHOULD BE THE DEVICE TYPE OF THE DIAGNOSTIC 


SIITTIIIIT 
s STEP 4 8 
boo 6 os} 8 8 | 


WHEN YOU HAVE TYPED IN THE NUMBER OF UNITS TO BE_ TESTED. THE 
DIAGNOSTIC WILL ASK YOU THE “HARDWARE QUESTIONS”. THE ANSWERS TO 
THESE QUESTIONS ARE USED TO BUILD TABLES IN CORE. CALLED "“HAROWARE 
atl ae ONE HARDWARE P-TABLE WILL BE BUILT FOR EACH UNIT TO BE 


THERE ARE SEVERAL HARDWARE QUESTIONS AND THE ENTIRE SERIES WILL BE 
POSED N TIMES. WHERE N IS THE NUMBER OF UNITS. 





G 1 
USER DOCUMENTATION MACY11 30A(1052) 28-JUL-78 13:35 PAGE 10-2 
CZRXDA. P11 z7-JUL-78 09: 00 SEQ 0006 


THIS REPRESENTS A NEW PHILOSOPHY IN DIAGNOSTIC ENGINEERING. 
DIAGNOSTIC WILL IN THE FUTURE NOT BE WRITTEN TO AUTOSIZE OR ASSUME 
STANDARD ADDRESSES: INSTEAD. THEY WILL ASK THE OPERATOR FOR ALL THE 
INFORMATION THEY NEED TO TEST THE DEVICE. 


> ANSWER THE EXPANSION QUESTION WITH A “CR” OR O AND "CR". THIS WORD 
1s KESERVED FOR FUTURE EXPANSION. 


SERTIITITE 
x STEP 5 & 
bo So 8 ot 0 8 8 | 


AFTER YOU HAVE ANSWERED ALL THE HARDWARE QUESTIONS FOR ALL THE UNITS. 
YOU WILL BE ASKED “CHANGE SW?" IF YOU WANT TO BE ASKED THE SOFTWARE 
QUESTIONS THAT DETERMINE THE BEHAVIOR OF THIS PROGRAM, TYPE "“Y”". F 
YOU WANT TO TAKE ALL THE 


OU W E OF HE S 
WILL BE PUT INTO THE SOFTWARE P-TABLE IN THE PROGRAM THE SERIES OF 
QUEST IONS iit BE ASKED JUST ONCE. REGARDLESS OF THE NUMBER OF UNITS 
--)> AGAIN ANSWER THE EXPANSION QUESTION WITH A "CR". 


SXISIITE3% 
% STEP 6 & 
po to $2 8 8 8 | 


AFTER YOU HAVE ANSWERED THE SOFTWARE QUESTIONS. THE DIAGNOSTIC WILL 
BEGIN TO EXECUTE THE HARDWARE TEST CODE. — ARE SEVERAL THINGS 
THAT CAN HAPPEN NEXT. DEPENDING ON WHETHER HARDWARE ERROR IS 
ENCOUNTERED AND ALSO ON WHAT SWITCH VALUES you" SELECTED ON THE START 
COMMAND. CONSIDER THE POSSIBILITIES: 


1. IF NO ERROR IS ENCOUNTERED. THEN THE DIAGNOSTIC WILL SIMPLY 
EXECUTE THE DESIRED NUMBER OF PASSES AND RETURN TO COMMAND 
MODE (PROMPT DS-B>). 


2 IF AN ERROR IS ENCOUNTERED. THEN ONE OF THREE THINGS HAPPENS, 
DEPENDING ON THE SETTINGS OF THE HOE AND LOE FLAGS. 


HOE SET: THE ERROR WILL BE REPORTED ON THE CONSOLE AND 
THE DIAGNOSTIC WILL RETURN TO COMMAND MODE. 

LOE SET: THE DIAGNOSTIC WILL LOOP ENLESSLY ON THE BLOCK 
OF CODE THAT DETECTED THE ERROR. 
IF NO ERROR PRINT OUT IS DESIRED. THEN ALSO SET 
THE IER FLAG (SEE BEL OW). 

NEITHER HOE NOR LOE SET: THE ERROR WILL BE REPORTED ON 
THE CONSOLE AND NORMAL EXECUTION WILL RESUME 
AS IF NO ERROR HAD OCCURED. 
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2.1. 2 SAMPLE RUN- THROUGH 


LET'S SEE HOW ALL THIS WORKS INA REAL SITUATION RECALL THAT WE 
ENTERED THE COMMAND “STA/PASS: 1/F LAGS: HOE”. THIS WOULD BE A VERY 
TYPICAL WAY TO RUN THE DIAGNOSTIC. IF NO ERRORS ARE ENCOUNTERED, THE 
bay «A eta PASS WILL BE EXECUTED AND THE PROMPT WILL BE 







IF AN ERROR IS ENCOUNTERED. THE ERROR WILL BE REPORTED AND THE PROMPT 
WILL BE REISSUED (BECAUSE THE HOE FLAG IS SET). AT THIS POINT THERE 
ARE FOUR DIFFERENT WAYS YOU CAN GET THE PROGRAM GOING AGAINS: 


1. ISSUE ANOTHER “START” COMMAND (THUS GOING THRU ALL OF STEPS 
2, 3. 4. 5. RAND 6 AGAIN) 


2 ISSUE A "RESTART" COMMAND (SANE AS START COMMAND EXCEPT THAT 
THE HARDWARE QUESTIONS ARE NOT ASKED) 


3 =ISSLC A “CONTINUE” COMMAND (EXECUTION WILL RESUME AT THE 
BEGINNING OF THE PARTICULAR HARDWARE TEST ‘(MOST DIAGNOSTICS 
CONSIST OF A NUMBER OF THESE) THAT IT WAS IN WHEN THE ERROR 
HALT OCCURED. NO QUESTIONS ASKED. 


4. ISSUE A “PROCEED” COMMAND: EXECUTION WILL RESUME AT THE 
INSTRUCTION FOLLOWING THE ERROR REPORT (THIS IS A SPECIAL 
COMMAND AND CAN BE ISSUED ONLY AT A HALT ON ERROR). 


THE MOST TYPICAL THING TO DO HERE IS TO ISSUE THE PROCEED. BUT WITH 
DIFFERENT FLAG SETTINGS. PROBABLY YOU WOULD WANT TO SAY 


PRO/FLAGS: IER: LOE: HOE=0 






















THIS WILL DO THE FOLLOWING: 

1. TURN Ov THE IER (INHIBIT ERROR PRINTOUT) FLAG 

2 TURN ON THE LOE FLAG 

3. TURN OFF THE HOE FLAG 

4. RESUME EXECUTION AT INSTRUCTION AFTER ERROR REPORT 
THE DIAGNOSTIC WILL NOW LOOP ON THE BLOCK OF CODE THAT DETECTED AND 
REPORTED THE ERROR. BUT NO ERROR PRINTOUT WILL OCCUR. THUS YOU CAN 
STUDY THE ERROR OR SCOPE IT OR WHATEVER. 
WHEN YOU'VE SEEN ENOUGH. YOU MAY HiT CONTROL/C. THIS WILL TAKE YOU 
OUT OF THE LOOP AND PUT YOU BACK INTO COMMAND MODE. YOU NOW HAVE 
THREE CHOICES: 

1. START 


2 RESTART 
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3. CONTINUE 


LET'S SAY YOU'VE REPAIRED THE DEFECT FOUND ABOVE AND WANT TO FINISH 
RUNNING THE DIAGNOSTIC. YOU WOULD TYPE 


CON/FLAGS: HOE: 1ER=0: LOE=0 
THIS WILL RESTORE THE FLAGS TO THEIR ORIGINAL VALUES AND RESUME 
EXECUTION AT THE BEGINNING OF THE HARDWARE TEST YOU WERE IN. IF THE 
ERROR DOES NOT RECUR, THE EXECUTION WILL FLOW RIGHT ON THRU TO THE 
NEXT ERROR OR TO END OF PASS. 


Ly OF PASS YOU WANT TO RUN THE DIAGNOSTIC AGAIN, YOU HAVE THO 


1. START 
2 RESTART 


YOU WOULD CHOOSE ONE. DEPENDING ON WHETHER YOU WANTED TO ANSWER THE 
HARDWARE QUESTIONS AGAIN. 


THE FULL PRINT-OUT FROM THE ABOVE DIALOGUE MIGHT LOOK LIKE THIS: 


BY 

WHOM 

ENTERED 
.R DOZRKXX 
DZRKXX D 
L-CLK (L) NY D.0 
5O0HZ (L) N? D 
LSI (L) N? D 
LPT (L) N? D 
MEM (K) (D) 16 ? D 
yt ate 1/F LAGS: HOE D.0 
8 sew (0) 72 0,0 
UNIT 1 
DRIVE (0) 70 D.0 
UNIT 2 D 
DRIVE (0) ? : D.0 
CHANGE SW (L D,.0 
yr gee eRe 00004 TST 003 SUB 002 PC: 004130 
OS-B>PRO/FLAGS: IER: LOE: HOE=0 D.0 


SITLALALALALTALAAAALALAA AAA AAA AA ALAA AAAs 
AT THIS POINT THE DIAGNOSTIC 1S LOOPING ON THE 
ERROR WITHOUT PRINTING ANYTHING. YOU CAN SCOPE 
THE ERROR UNTIL YOU HAVE LOCATED IT. THEN C OUT 
SELTITALAAATAATAAAAAATAL AAA AAA ALAA LALA AAA A Ay 


Cc 0 
DS-B >CON/FLAGS: HOE: IER: LOE=0 D.0 


SEQ 0008 
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CHANGE SW (L) 7? N 0,0 
DZRKXX EOP 1 D 

DS-B >RESTART/PASS: 1 D,0 
CHANGE SW (L) 7? N D.0 


2.2 HOW TO CREATE A CHAINABLE FILE 


THE DIAGNOSTIC AS RECEIVED FROM RELEASE ENGINEERING CANNOT BE RUN IN 
CHAIN MODE. THA IS WHY IT BEARS THE EXTENSION “BIN” INSTEAD OF “BIC”. 
ae aoe WAY, HOWEVER. TO CREATE A CHAINABLE PROGRAM FROM WHAT 


1T CONSISTS OF RUNNING THE PROGRAM WITH THE SPECIAL COMMAND “CCI” 
ISSUED WHERE YOU — pg “— A START COMMAND (TO THE PROMPT 


: AUSE HE 
QUESTIONS AND ANSWERS AND THEN TO HALT. JUST WHERE IT WOULD ORDINARILY 
BEGIN EXECUTION OF THE HARDWARE TEST CODE. AT THIS POINT YOU CAN DUMP 
a TS 1T SITS IN CORE TO THE LOAD MEDIUM. WITH THE NEW 


HERE 1S A SAMPLE DIALOGUE TO ACCOMPLISH THIS: 


CLR 
LOAD DIAG. BIN 
XFER: 200 CORE: 0.60602 
START 2 
L-CLK (L) N? 
DOS-B>CCI 


@ UNITS (D) 7.4 


CHANGE SW (L) ?.N 
PTAB END: 60632 


SISAAAAAAAAAAATA ALAA ALAA ALATA AIT 
SAT THIS POINT THE MACHINE HALTS ANDZ 
YOU MUST RESTART AT RODRESS XXXXXxX% 
SISAAAAALAAL TATA AAA ALAA ALATA ATs 


SHICORE 60632 
CORE: 0,60632 
SDUMP DKO: DIAG. BIC 


THE RESULT OF DOING THIS IS THAT YOU CAN NOW BUILD AN XXDP CHAIN FILE 
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CONTAINING THE XXDP COMMAND 
.R DIAG. BIC 


AND THE DIAGNOSTIC WILL EXECUTE WITHOUT MANUAL INTERVENTION, USING THE 
ANSWERS THAT YOU GAVE IT WHEN YOU DID THE CC! COMMAND. 


2.3 DETAILS OF COMMANDS AND SYNTAX 
2. 3.1 TABLE OF COMMAND VALIDITY 


THERE ARE FOUR WAYS OF ENTERING DIAGNOSTIC COMMAND MODE. AND DIFFERENT 
SUBSETS OF THE DIAG COMMAND SET ARE AVAILABLE WITH EACH: 


HOW ENTERED LEGAL COMMANDS 
OPERATOR ENTERED ‘RUN DIAG‘ START 


DIAGNOSTIC HAS FINISHED ALL 
ITS REQUESTED PASSED 


OPERATOR INTERRUPTED THE 
DIAGNOSTIC WITH CTRL/C 


AN ERROR WAS ENCOUNTERED 
WITH THE HOE FLAG SET SET 


2. 3.2 COMMAND SYNTAX 

SISTAIAAAALAATATAAAAAALAAA AAA AAA ALA AAA ALATA AAA AAA AAA AAAs 
STACRT)/TESTS: TEST-L IST/PASS: PASS-CNT/FLAGS: FLAG-LIST/EOP: EOP-INCR 
SEMTAITAAAATASALAATAA AAA AAA AAA ATA AAA ATLA A TAA A AAA AA TAA AAA AAA TAA A ay 


THE DIAGNOSTIC IN CORE 1S EXECUTED IN ACCORDANCE WITH THE SWITCHES 
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SPECIFIED. |THE MESSAGE "@ UNITS?” IS PRINTED. THE START COMMAND NAY 
BE ISSUED WHEN DIAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE OF THE 


FOLLOWING: A) T 
EXECUTING C) ERROR WAS ENCOUNTERED WITH HOE FLAG SET 0D) OPERATOR 
ENTERED CONTROL/C. 





AFTER THE OPERATOR RESPONDS TO "# UNITS?", THE HARDWARE DIALOGUE IS 
INITIATED. WHEN IT JS COMPLETED. THE QUESTIONS “CHANGE SW?" 

ISSUED, AND THE ANSWERS. IF GIVEN, BECOME THE NEW DEFAULTS. THEREFORE 
eat TO RELOAD THE PROGRAM IN ORDER TO RETURN TO THE LOAD 


THE SWITCH ARGUMENTS ARE AS FOLLOWS: 


“TEST-LIST" 1S A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.) OR RANGES OF 
DECIMAL NUMBERS (1-5: 8-10 ETC.) THAT SPECIFY THE TESTS TO BE . E> 
THE NUMBERS ARE ace En BY COLONS. THE NUMBERS RANGE FROM 1 TO THE 
LARGEST TEST NUMBER IN THE DIAGNOSTIC. THEY MAY BE SPECIFIED IN ANY 
ORDER. TESTS WILL BE EXECUTED IN NUMBERICAL ORDER REGARDLESS OF THE 
ORDER OF SPECIFICATION THE DEFAULT IS TO EXECUTE ALL TESTS. 


— « 1S A OECIMAL NUMBER INDICATING THE DESIRED NUMBER OF 
PASSES. PASS IS DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC 
(ALL SELECTED TESTS) AGAINST ALL UNITS SUMBITTED. THE DEFAULT IS 
NON-ENDING EXECUTION..B “FLAG-LIST" IS A SEQUENCE OF ELEMENTS OF THE 
FORM <FLAG>. <FLAG=1>. OR <FLAG=0>. SEPARATED BY COLONS. WHERE <FLAG> 
HAS ONE OF THE FOLLOWING VALUES: 


HOE HALT ON ERROR. CAUSING COMMAND MODE TO BE ENTERED WHEN AN 
ERROR 1S ENCOUNTERED 
LOE LOOP ON ERROR. CAUSING THE DIAGNOSTIC TO LOOP CONTINUOUSLY 


WITHIN THE SPMLLEST DEFINED BLOCK OF CODING (SEGMENT. 


SUBTEST. OR TEST) CONTAINING THE ERROR 
1ER INHIBIT ERROR REPORTING 
1BE INHIBIT BRSIC ERROR REPORTS 
1 XE INHIBIT EX D ERROR 
PRI DIRECT ALL MESSAGES TO A LINE PRINTER 
PNT PRINT NUMBER OF TES BEING EXECUTED 
BOE BELL y ERROR 
UAM RUN IN UNATTENDED MODE. BYPASSING MANUAL INTERVENTION TESTS 
1SR INHIBIT STATISTICAL REPORTS 
1DU INHIBIT DROPPING OF UNITS BY DIAGNOSTIC 


THE FLAGS NAMED OR EQUATED TO 1 ARE SET. THOSE EQUATED TO O ARE 
CLEARED. A FLAG NOT SPECIFIED 1S CLEARED. IF THE FLAGS SWITCH IS NOT 
GIVEN ALL FLAGS ARE CLEARED. 


“EOP-INCR” 1S A DECIMAL NUMBER INDICATING HOW OFTEN (IN TERMS OF 
PASSES) IT 1S DESIRED THAT THE END OF PASS MESSAGE BE PRINTED. THE 
DEFAULT 1S AT THE END OF EVERY PASS. 


SISTATAAATALAATALAAAALALAAAA SALA AAA AAAS A AAA A AAA AAA AAA AAA ALATA TAA AAA AAA AAAs 
RES( TART) /TEST: TEST-LIST/PASS: PASS-CNT/F LAGS: FLAG-L | ST/EOP: EOP-INCR/UNITS: UNIT-LIST 
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SISTAITATTAA ATA ATAAATAAAALAATA ALATA ALATA LALA AATA TAAL ALA SSAA ALTA SAAT LT TTI Iss 


THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE eae 
pees ieee - NEW P-TABLES ARE NOT BUILT. INSTEAD. THE ONES | 

THE QUESTION “CHANGE SW?" IS ASKED, “a THE ANSERS IF GIVEN BECOME THE 
NEW DEFAULTS. THE COMMAND MAY BE ISSUED WHEN COMAND MODE HAS BEEN 
ENTERED VIA A) DIAGNOSTIC IS FINISHED B) HALT ON ERROR C) CONTROL/C. 


THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT: 


1. “UNIT-LEST" 1S § SEQUENCE OF LOGICAL UNIT NUMBERS RANGING 
FROM 1 THRU N (N = ‘NUMBER OF UNITS BEING TESTED) SPECIFYING 
WAICH UNITS ARE TO BE TESTED. THE LOGICAL UNIT NUMBER 

THE POSITION OF THE P-TABLE IN CORE, ACCORDING TO 

La | ORDER IN WHICH THEY WERE BUILT. THE UNITS SPECIFIED MUST 

HAVE BEEN DROPPED BY THE OPERATOR DROP COMMAND. THE 

UNIT-LIST DEFAULTS TO “ALL THAT HAVE NOT BEEN DROPPED BY 

OPERATOR C THE EFFECT OF THE UNIT-LIST LASTS 2 

THE NEXT START (WHERE IT 1S AUTOMATICALLY RESET TO "ALL") OR 
THE NEXT RESTART. 


2 ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED. 


MTTTTTIT TTT tte Tete 
CON( TINUE )/PASS: <PASS-CNT/FLAGS: <FLAG-LIST> 
SISTITAAASARATAAAAAAALAAAAAAAAAL SAAT AT TT 8t 


T HAVE BEEN ENTERED DUE TO A HALT ON ERROR OR A 


MUS 

THE EFFECT OF THE COMMAND 1S TO GO TO THE BEGINNING OF THE 
T WAS BEING EXECUTED WHEN THE HALT OR CONTROL/C TOOK PLACE. 

ALOGUE MAY OPTIONALLY BE REEXECUTED. HARDWARE PARAMETERS 


THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT: 


1. DEFALT FOR PASS-CNT IS THE UNSATISFIED PASS-CNT FROM THE 
PREVIOUS START OR RESTART 


2 UNSPECIFIED FLAG SETTINGS ARE UNCHANGED 


SERTTATAAATAAATAATAAAA ATs 
PRO(CEED)/FLAGS: <FLAG-LIST> 
SISTITAAALATAALA LATA ATI ITs 


MODE MUST HAVE BEEN ENTERED VIA A HALT ON ERROR. THE EFFECT 
OF THE COMMAND 1S TO BEGIN EXECUTION AT THE LOCATION FOLLOWING THE 
ERROR CALL. NEITHER HARDWARE NOR SOFTWARE PARAMETERS MAY BE ALTERED. 
THE SWITCH ARGUMENTS ARE THE SAME AS THE START COMMAND EXCEPT: 


1. UNSPECIFIED FLAG SETTINGS ARE UNCHANGED 
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SITTATATAAIAATAIAAAAAAAAAAAATAALAAA ATLA ATAASAATATTALAATAII I 
CCI/TEST: TEST-L IST/PASS: PASS-CNT/FLAGS: FLAG-L IST/EOP: EOP- INCR 
SITIAAAAATAALALAASAAAAASAAALAAAAAATAALALAAAAAAAAAATALTAAII 


THE DIAGNOSTIC EXECUTES THRU ALL OPERATOR DIALOGUE AND HALTS AT THE 
HAR DWAR E T NOW THE OPERATOR CAN DUMP THE CORE IMAGE TO THE 
MEDIUM WITH A BIC EXTENSION. 


THE BIC FILE MUST . wo DIFFERENTLY DEPENDING ON WHETHER IT IS 
RUN MIRNUALLY OR IN CHA MODE. IF RUN MANUALLY !T CAN BE INVOKED 
EITHER WITH A “START” (IN WelICH CASE IT WILL BEHAVE LIKE THE BIN FILE: 
THE PRE-GENERATED ANSWERS TO OPERATOR QUESTIONS WILL BE IGNORED) OR 
okey oie CIN WHICH CASE THE PRE-SENERATED OPERATOR ANSWERS 


IF RUN IN CHAIN MODE, ny ptt EXECUTION WILL COMMENCE IMMEDIATELY 
A RL 9 XXDP COMMAND ".R DIAG". THE COMMAND PROMPT “DS-B>" WILL NOT 


ANY SWITCHES ey ON THE CC! COMMAND WILL CARRY OVER WHEN THE BIC 
FILE §S RUN IN CHAIN MODE (EXCEPT THAT UAM IS ALWAYS SET THERE) BUT 
WILL NOT CARRY OVER WHEN IT IS RUN MANUALLY. 


TO 00 A CCI ON A FULL SIZED DIAGNOST! WORDS), A MACHINE SIZE 


C (14. 5K 
LARGER THAN 16K IS REQUIRED. THE EXACT SIZE NEEDED DEPENDS ON WHICH 
UTILITY 1S USED TO EXECUTE THE DIAGNOSTIC AT CCI TIME. 
SIRTIAAAATALSATAAIIIIs 
DRO(P)/UNITS: UNIT-LIST 
SERTAATAAAAAAAAAAATIIs 


THE UNITS” wg te ARE DROPPED FROM TESTING UNTIL THEY ARE ADDED BACK 
TE START COMMAND IS GIVEN. A DROP CANNOT BE FOLLOWED BY A 


THERE 1S ALSO A “DROP” MACRO INTERNAL TO THE Heer ae WHICH GIVES 
THE FACILITY OF AUTO-DROPP ING. THE DURATION OF A PROGRAM DROP. 
HOWEVER. 1S ONLY UNTIL THE NEXT START OR RESTART. 


SAITISITATIA IIIA Is3 
ADO/UNI TS: UNIT-L IST 
BIBTTALATAAAALAII Ss 


THE UNITS SPECIFIED ARE ADDED BACK (THEY MUST HAVE BEEN PREVIOUSLY 
DROPPED BY THE DROP COMMAND) TO THE TEST SEQUENCE. AN ADD CANNOT BE 
FOLLOMED BY A PRCCEED. 


S235 833 
PRI (NT) 
SU55233 


ALL STATISTICS TABLES ACCUMULATED BY THE 
1SR (INHIBIT STATISTICAL REPORTING) FLAG 


0 ee ARE PRINTED. THE 


! 
S CLEAR 
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SIITITAAITLALITALAAAAIIIIs 
DIS(PLAY)/AUNITS: CUNIT-LIST> 
SISTTTISATAAATAAIALAATI IIs 


THE HARDWARE P-TABLES FOR ALL UNITS UNDER TEST ARE PRINTED OUT IN THE 
FORMAT IN WHICH THEY WERE ENTERED. ANY UNITS amt WERE DROPPED BY THE 
OPERATOR “DROP” COMMAND ARE SO DES! GNATED. 


SE23 58% 
FLACGS) 
BS tt $8 6 | 


THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED. 


S377 73% 
ZFL (AGS) 
bE tS do 8 8 | 


ALL FLAGS ARE CLEARED. 


2.4% EXTENDED P-TABLE DIALOGUE 


THE FULL CAPABILITY OF THE HARDWARE DIALOGUE iS REVEALED BY THE 
FOLLOWING DISCUSSION OF WHAT HAPPENS INTERNALLY. 


AS SOON AS THE QUESTION “@ UNITS?” IS ANSWERED (WITH THE NUMBER N, 
SAY) SPACE IN CORE IS ALLOCATED FOR N P-TABLES. ALL OF THE P-TABLES 
ARE OF THE SAME FORMAT. AND THERE {IS A_ ONE-TO-ONE CORRESPONDENCE 
ley THE HARDWARE PARAMETER QUESTIONS AND THE SLOTS IN THE P-TABLE 


ON THE FIRST TRIP THRU THE QUESTIONS. ALL OF THE SLOTS IN ALL OF THE 
P-TABLES ARE FILLED. 1F THE OPERATOR oe IN LESS THAN N EXPLICIT 
VALUES IN RESPONSE TO A PARTICULAR QUESTION, THESE VALUES ARE PLACED 
IN THE P-TABLES (ONE VALUE GOING INTO THE PROPER SLOT OF EACH P-TABLE 
BEGINNING WITH THE FIRST P-TABLE) UNTIL THE STRING OF VALUES IS 
EXHAUSTED. THE LAST VALUE THAT SLOT IN THE REMAINING P-TABLES. 


ee TRIPS THRU THE QUESTIONS. THE SAME PROCESS IS CARRIED 
OUT; gy 7 THE EARLIEST P-TABLE NOT TO HAVE RECEIVED AN EXPLICIT 
VALUE IN ANY OF ITS SLOTS NOW ASSUMES THE ROLE THAT TABLE NUMBER ONE 
PLAYED iN THE FIRST TRIP. 


THE SERIES OF QUESTIONS | 
RECEIVED N EXPLICIT VALUE 


N Gi¥ COMMAS WITHOUT INTERVENING VALUES MAY BE 
USED 10 INDICATE A REPETITION OF THE LAST NAMED VALUE. 


A STRING OF VALUES MAY BE GIVEN AS A RANGE (6-10 FOR EXAMPLE). iF THE 


A ) 
VALUES REPRESENT PURE NUMERICAL DATA THIS SAMPLE RANGE TRANLATES TO 





nn 
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USE NTATI 
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THE STRING 6,7.8,.9.10 (AN INCREMENT OF 1F THE VALUES ARE 
pag ite ot en. SAMPLE RANGE - TRANSLATES 10 THe STRING 6.8.10 (AN 


NOW LET US SEE HOW WE COULD USE THESE CAPABILITIES TO CONSTRUCT A_ SET 
OF P-TABLES. ASSUME THAT WE HAVE 64 UNITS. AND THAT THERE ARE THREE 

HARDWARE PARAMETERS 4 EACH (THREE SLOTS IN THE P-TABLE. THREE 
HARDWARE QUESTIONS THE DIALOGUE). LET THE DESIRED VALUE FOR THE 
FIRST PARAMETER BE THe NUMBER 75 FOR ALL 64 TABLES. LET THE DESIRED 
VALUE FOR THE SECOND PARAMETER BE E TO THE UNIT NUMBER 
(1,2,3,...,.64) EXCEPT FOR UNIT 50, WHICH SOULD RECEIVE THE VALUE 49. 
LET THE DESIRED VALUE FOR THE THIRD PARAMETER BE THE NUMBER 76 FOR THE 
FIRST 20 UNITS AND THE NUMBER 77 FOR THE LAST 44 UNITS. 


THE FOLLOWING DIALOGUE WOULD ACCOMPLISH THIS GOAL: 
# UNITS (D) ? 64 


UNIT 1 

<QUESTION 1> 
QUESTION 2> 
{QUESTION 3> 


UNIT 21 
QUESTION 1> 
{QUESTION 2> ? 21-49,,51-64 
{QUESTION 3> ? 77 


75 
1-20 
76 


ee en 


II 


THE FIRST TIME THE SERIES IS ASKED, SLOT ONE RECEIVES A 75 IN ALL 64 
TABLES. SLOT TWO RECEIVES THE VALUES 1.2,3.....20 IN TABLES 1 THRU 20 
AND A CONSTANT 20 IN TABLES 21 THRU 64. SLOT THREE RECEIVES A 
CONSTANT 76 IN ALL 64 TABLES. 


THE eectce "¢ THRU THE SERIES. TABLES 21 THRU THE END ARE GOING 


BE AFFECTED (NOTE THAT THIS PIECE OF INFORMATION IS PRINTED OUT FOR 
OPERATOR THE F “UNIT XX" AT THE BEGINNING OF E 1éS) 
QUESTION 1 IS D TO BY A <CR>. SO SLOT ONSTANT 75 


RE SPONDE AN 
IN TRBLES 21 THRU 64%. SINCE NO NEW EMLICIT VALUES ARE TYPED IN. SLOT 
TWO GETS THE VALUES 21.22.23.....49 IN TABLES 21 THRU 49, AND GETS A 
49 IN SLOT 50, ANO GETS THE VALUES 51,52,53.....64 IN TABLES 51 THRU 
64. SLOT THREE GETS THE VALUE 77 IN TABLES 21 THRU 64. 


THE DIALOGUE IS TERMINATED WHEN THE SOFTWARE RECOGNIZES THAT 64 
oekrtes ee HAVE BEEN GIVEN FOR AT LEAST ON QUESTION (NAMELY 


tn ] 
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3.0 ERROR INFORMATION 


A WRITE ERROR 1S AN ERROR WHICH OCCURRED DURING EXECUTION OF A 
WRITE FUNCTION. 


READ ERROR 

A READ ERROR 1S AN ERROR WHICH OCCURRED DURING EXECUTION OF A 
READ FUNCTION. 

CRC ERROR 

THIS ERROR IS DETECTED BY THE DRIVE DURING A READ OPERATION AND 
ALSO BY THE PROGRAM IF A DATA CHECK IS PERFORMED. 

NO CRC ERROR BUT DATA ERROR - BAD CRC 


THE ABOVE TWO ERRORS ARE DETECTED 'WHEN THE PROGRAM IS 
VERIFYING THE DATA READ OFF THE DISKETTE AGAINST THE DATA THAT 


SHOULD HAVE BEEN READ 


THE DATA PATTERNS WILL BE FORMATTED FOR DOUBLE DENSITY (SINGLE 
DENSITY) AS SHOWN. 


BYTE # 
0 <TRACK ADDRESS; BITS 6 - O> 
1 <SECTOR ADDRESS: BITS 4 - O> 


BYTES 2 THROUGH 253 (125) CONTAIN A SELECTED PATTERN. 


254(126) <THE SUM OF ALL BYTES 0 - 253(125)> 
255(127) <THE NEGATIVE OF 2 TIMES BYTE 254(126)> 


SEEK ERROR 


A SEEK ERROR CAN BE DETECTED VIA BYTE #0 IF A CRC. DATA. CHECKSUM 
ERROR HAS NOT OCCURRED. ALSO THE en he a: DETECT A SEEK ERROR IF 
THE DISKETTE HEADER 1S NOT RECOGNIZED OR COULD NOT BE FOUND. A 
PROGRAMMED RECALIBRATE IS ISSUED TO TRY 16 CORRECT EACH SEEK ERROR. 
IF SELECTED DURING PROGRAM DIALOG. 





az 
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CHECKSUM ERROR 


THE PROGRAM WILL DETECT A CHECKSUM ERROR BY SUMMING 


ALL THE 
DATA READ FROM THE DISKETTE AND COMPARING THAT SUM WITH ae waren BYTES. 


A CHECKSUM ERROR RESULTS FROM AN INCORRECT TRANSFER OF 
INTERNAL TO THE RX21/RX0O2 SUBSYSTEM. 


4.0 PERFORMANCE AND PROGRESS REPORTS 


5.0 


6.0 


6. 1 


AT THE END OF EACH PASS A STATISTICAL REPORT WILL BE PRINTED OUT 
OF ALL ACCUMULATED ERRORS. 


DEVICE INFORMATION TABLES 


RE8X% RXOZ REGISTER BITS *¥aRx : 
! ’ 

115 1M ' 13! 12! 11! 10! 09! 08! 07/06 105 'OY '03 !02 !01 !00 

RXCS: HERR INT XR 'XM !RX2! 'SID!DEN!TR '1E !DON!ORV!FUN!FUN!FUN!GO 


RXWC: ik oR. 2 es eee we WORD COUNT 

ti RAT ea aol 

RXES: !X !X !X ! X INXMIWC !SIDIORVIDRV!DEL!DSK!DENIAC !INTISIDICRC 
i ot § § $  1OVEIR1 '81 IRDY!DAT!DEN'ERR!LOW!DON!RDY! 

eta tx XX XX XX X!O! TRACK ADDRESS 

em i BE I SAR I AA ES ET el meno Di 

RxOB: ! DATA BUFFER 


UNIT AND DRIVE SELECTION WILL BE ACCOMPLISHED BY MODIFYING HARDWARE 
P-TABLES DURING A START DIALOG. 


SEQ 0017 


Fe 
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DATA PATTERNS 


AVAILABLE DATA PATTERNS ARE SELECTED BY MODIFYING THE SOFTWARE 
ate DURING START OR RESTART DIALOG. DATA PATTERNS AVAILABLE 


0 = DEFAULT TO 7 

1 = ZEROS 

2 = ONES 

3 = FLOATING ZERO 
4 = FLOATING ONE 

5 = 125 

6 = 333 

7 = RANDOM 


EXERCISE OPTIONS 


pg EXERCISES ARE SELECTED BY MODIFYING THE SOFTWARE P-TABLE 
DURING A START OR RESTART DIALOG EXERCISES AVAILABLE ARE: 


DEFAULT TO 7 

WRITE ONLY 

WRI TE/READ 

WRITE/READ/DATA CHECK 

READ/DATA CHECK ONLY 

READ ONLY (CRC CHECK) 

WRITE/RERD/DATA CHECK ON ALTERNATING DRIVES (%) 
WRITE/RERD/DATA CHECK +/READ/DATA CHECK (24%) 


TEST 6 WRITES THEN READ CHECKS ANY SELECTED DATA PATTERN 
USING ANY TRACK SEQUENCE. BUT ONE TRACK AT A TINE. 
FIRST ON DRIVE O THEN DRIVE WHEN BOTH UNIES HAVE 
oS ar pal TRACK. IT GOES BACK TO UNIT O FOR THE NEXT 


THE FIRST HALF OF TEST 7 FORCES THE TRACK SEQUENCE T0 
INCREMENT UP THROUGH ALL TRACKS DOING WRITE/READ/DATA 
CHECK FUNCTIONS. THIS VERIFIES THAT ALL TRACKS ARE 
ACCESSABLE. THE SECOND HALF OF THE 
SEQUENCE SELECTED BY THE OPERATOR AS INDICATED BELOW, 
AND ONLY READ AND CHECK THE DATA JUST WRITTEN. THIS 
VERIFIES THAT THE DATA CAN BE READ FROM A K AFTE 
THE HEAD HAS BEE 


N MOVED AWAY F 
TRACK. AT THE COMPLETION OF THE PASS THE DELETED DATA 
BIT IN TEST CONDITIONS IS COMPLEMENTED AND THE NEXT PASS 
WILL BE RUN UNDER THIS NEW CONDITION. 


NOMelwn oO 
nnnnnnnn 
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6.4 


6.5 


6. 6 


6.7 


TRACK SEQUENCING 


TRACK SEQUENCE OR TYPE OF HEAD MOVEMENT MAY BE SELECTED BY 
MODIFYING THE SOFTWARE P-TABLE OF THE DIAGNOSTIC SUPERVISOR. 
TRACK SEQUENCES AVAILABLE FOR SELECTION ARE: 


G = DEFAULT TO 7 
1 = INCREMENT 0.0. UP TO I. 
2 = DECRENMENT 1.0. DOWN TO 0.0 
3 = INCREMENT 0.0.. THEN DECREMENT |. D. 
4 = E BETWEEN 0.0. AND |.D. 
5 = — BETWEEN DECREASING |.D. AND INCREASING 0. D. 
; = ote BETWEEN 0.0. AND DECREASING |. D. 
0.0. = OUTSIDE DIAMETER (TRACK) 
1.0. = INSIDE DIAMETER (TRACK) 


SECTOR/TRACK ADDRESSING 


iT WILL BE POSSIBLE TO TEST THE DISKETTES BETWEEN TRACK AND 
SECTOR ADDRESS gots OTHER THAN BETWEEN tot NORMAL OUTER 


IRST) ECTOR ADORESS. BY 
MODIFYING THE SOFTWARE P-TABLE DURING A START OR RESTART DIALOG. 


DISKETTE DENSITY 


ALL TESTS WILL RUN AT DOUBLE DENSITY UNLESS SELECTED AS SINGLE 
DENSITY DURING A START OR RESTART DIALOG. 


PROGRAM CONTROL 


BEHAVIOR OF THE PERFORMANCE EXERCISOR MAYBE MODIFIED BY USE OF 
THE FOLLOWING PROGRAM CONTROLS: 


HALT ON ERROR PROVIDED BY SUPERVISOR 
HALT AT ENO OF PASS PROVIDED BY SUPERVISOR 
DON'T PRINT ERROR MESSAGE PROVIDED BY SUPERVISOR 
RETRY ON ERROR. LOG HARD/SOFT ERRORS SOFTWARE P-TABLE 
RECALIBRATE ON SEEK ERRORS SOFTWARE P-TABLE 


MNeuwp- 
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7.1 LISTING 
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002000 


27-JUL-78 09: 00 


002000 


’ 

. 
, 
, 


‘’ 
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. TITLE PROGRAM HEADER AND TABLES 
. SBTTL PROGRAM HEADER 


.ENABL ABS. AMA 
2000 


BGNMOD 


, ++ 


THE PROGRAM HEADER |S THE INTERFACE BETWEEN 
THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER ALL 


HEADER CZRXDAO.O, 0, 2100, 2100, 2100, .E. TITLEX 


002110 054122 031060 051440 TITLEX. ries 7RXOZ SS PERF EXER/ 


SEQ 0022 
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.SBTTL DISPATCH TABLE 


i++ 
+ THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
+ IT 1S USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


’ 


DISPATCH 1 
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. SBTTL DEFAULT HARDWARE P-TABLE 


2 +4 
+ THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUE 
; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS 

; Is IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABL 


Ss 
T 


OF 
ABLE 
E. 


OF PTBL 


177170 ‘ 177170 + UNIBUS ADDRESS 
000264 . 264 + VECTOR ADDRESS 


000000 ‘ 0 DRIVE & 
000000 . 0 + FUTURE EXPANSION 
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.SBTTL SOFTWARE P-TABLE 


+++ 
+ THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
+ PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


sc 


SFPTBL 
+ FUTURE EXPANS | ON-RX 
+ CONTROL WORD FOR 


+ TEST PATTERN @ 

+ TRACK SEQUENCE & 

+ SOFTWARE SWITCH REG 
OUTSIDE DIA TRACK 


0 
0 
0 
0 
0 
2 
0 
1 
1 
3 


L 
t 
MAXIMUM SECTOR LIMIT 





GLOBAL 

CZ2RXDA. P11 
3157 
3158 
3195 


002176 


2 
3213 002176 


(1) 


I ae ee ee ee ee ee oe ee oe ee ee ee ee a ee en an ean ae a a a ae a a a a el 
[el ee Se Se ee 
re ee ee ee ee ee ee ee ee ee eee ee eee eee ee a a ee a a ee es es 
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000010 
000004 
000002 
000001 


001000 
00 


ata 13: 35 Ary | 20-1 


OFTWARE P-TABLE 


. TITLE GLOBAL AREAS 
. SBTTL GLOBAL EQUATES SECTION 


+44 ag 
+ THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT ** 
+ ARE USED IN MORE THAN ONE TEST. . ee 


’ 


EQUALS 


SSoree ves a4 
“ 
S@2@oeawmwmeawmoawm -—nc— 


Aaa 55 
SLSRSSRELES 


EVENT FLAG DEFINITIONS 
EF 32: EF 17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
EF 16: EFO1 AVAILABLE FOR PROGRAM USE 


EF. START== 
EF. RESTART== 
EF. CONT INUE== 


EFie== 16. 
EFiS== 15. 
EFiu== 14. 


BSS=8 


START COMMAND WAS ISSUED 
RESTART COMMAND WAS ISSUED 
CONTINUE COMMAND WAS ISSUED 

A NEW PASS HAS BEEN STARTED 

A POWER-FRIL/POWER-UP OCCURRED 


8 3 
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CZRxDA. P11 27-JWA-78 09: 00 GLOBAL EQUATES SECTION SEQ 0027 
qi) 000015 EFi3e= 13. 
qi) 000014 €Fi2== 12. 
qi) 000013 EFiiz= 11. 
qi) 000012 EF1O0== 10. 
(1) 000011 EFO9== 9. 
(1) 000010 EFOS== 8. 
(1) 000007 EFO7== 7 
(1) 000006 EFO6== 6 
(i) 000005 EFOS== § 
(1) 000004 EFON== 4 
qi) 000003 EFO3== 3 
(1) 000002 EFO2== 2 
uy 000001 EFOi== 1 
aa + PRIORITY LEVEL DEFINITIONS 
(1) 000340 PRIO7== 340 
(1) 000300 PRI06== 
(1) 000240 PRIOS== 240 
(1) PRIO4== 200 
(1) 000140 PRIOS== 140 
(1) 000100 PRIOZ== 100 
(1) PRIOi== 40 
(1) PRIGO== 0 
3214 
3215 ; 
3216 7BIT DEFINITIONS 
3217 3 
3218 100000 81T15== 100000 
3219 040000 BITi4== 40000 
3 020000 BIT1i3== 20000 
3221 010000 81T12== 10000 
004 BiTiiz= 4000 
3223 002000 B1T10<= 
3224 001000 B1TO9== 1000 
3225 000400 BI1TO8== 400 
3226 000 B1TO7<= 
3227 000100 81 T06==100 
3228 000040 BITiS== 4 
3229 000020 BITO4== 20 
3230 000010 B81TO3== 10 
3231 000004 BITO2Z== 4 
3232 000002 BITOis= 2 
3233 000001 BITOO= 1 
3234 ; 
3235 001000 BIT9e= BITCS 
3236 000400 BiT8== B1TOS 
3237 000 BIT7s= 81TO7 
3238 000100 BiTé== BITOE 
000040 BITS== B1TOS 
3240 BiT4s= BITO4 
3241 000010 BiT3s= B81TOS 
000004 BiT2== B81TO2 
3243 000002 BiTis= B81TO1 
aed 000001 BiTO== 81TOO 


mee 


Cc 3 
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3246 > EVENT FLAG ae oe 
3247 ; EF 32: EF 17 RESERVED FOR gt ttdl yy. TO PROGRAM COMMUNICATION 
3248 3 EF 16: EFO1 AVAILABLE ever ROGRAN USE 
3249 000040 EF. START== 32. T COMMAND WAS ISSUED. 
3250 000037 EF. RESTART== 31. ReeraRt COMMAND WAS ISSUED. 
3251 000036 EF. CONTINUE== 30. ; CONTINUE COMMAND WAS ISSUED. 
3252 000035 EF. NEW== 29. 7A NEW PASS HAS BEEN STARTED. 
sy 000034 EF. PUR== 28. 7A POWER FRIL/POWER-UP OCCURRED 
3255 EFi6é== 16. 

000017 EF1S== 15. 
3257 000015 EFi4== 14%. 

000015 EFi3== 13. 
3259 000014 EF12== 12. 

000013 EFiis= 11. 
3261 000012 EF10== 10. 
3262 000011 EFO9== 9. 
3263 000010 EFO8== 8 
3264 000007 EFO7== 7 
3265 000006 EFO6== 6 

000005 EFOS== 5 
3267 000004 EFO4=s= 4 

3 EFO3== 3 

3269 000002 EFO2== 
thy 000001 EFOi== 1 
s ;PRIORITY LEVEL DEFINITIONS 
3274 000340 PRIO7== 340 
3275 000300 PRIO6== 300 
3276 000240 PRIOS== 240 
3277 200 PRION== 200 

000140 PRIO3== 140 

000100 PRIOZ== 100 
3280 PRIOi== 40 
3281 PRIOO== 0 
3282 é 
aaty ; PROGRAM DEFINITIONS 
3285 000200 TRBIT==200 


3286 000040 ONB I T==40 


PREAS MACY11 30A(1052) 28-JUL-78 13:35 PAGE 21 
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.SBTTL GLOBAL DATA SECTION 


+44 
+ THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
+ IN MORE THAN ONE TEST. 


,7- 


; STORAGE FOR DEVICE REGISTERS 
: 0, 0, DEVDAT. REGMSK 


RESTART FLAG 
7 AB 


ORT FLAG 
SYSTEM DRIVES DONE (SEE REG DEF. BELOW) 
+ SYSTEM UNDER TEST (SEE REG DEF. BELOW) 
;UNIT UNDER TEST (SEE REG. DEF. BELOW) 
;UUT UNIBUS AOR 
;UUT oa Sa OF FSET 
+ DENSITY FLAG 
DELETED DATA FLAG 
+UNIT O AOR 


UNIT 1 ADR 
: SYSTER ERROR 
ERROR TYPE 
; CONT/STATUS REG UUT 
+ ERROR/STATUS REG UUT 
+77 (10 )DATART/ (4 )RORT/(2)WTRT/(1)SEEK/ SEE BELOW 


+ SEEK RETRY COUNT 
+> CHECK SUM RETRY COUNT 


*DATA READ RETRY COUN 

DATA WRITE RETRY COUNT 

+READ RETRY COUNT 

+WRITE RETRY COUNT 

#D.D. ERR RETRY COUNT 
ORD COUNT 


000000 

000000 

000000 

000000 

000000 

000000 

oordCS 
3320 000000 
3321 000000 
3322 000000 
3323 000000 
3324 000000 
3325 000000 
3326 000000 
3327 000000 
3328 000000 
3329 000000 
3330 000000 
3331 000000 
3332 000000 
3333 000000 
3334 000000 
3335 000000 
3336 000000 
3337 000000 
3338 000000 
3339 000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


-©6 


R 
; DONE (UUT) FLAG 
+SECTOR DONE (UUT) FLAG 
+UNIT O VECTOR 
UNIT 1 VECTOR 


HARD ERROR 
PRINT ERR CODE FLAG 


tS 
oooooooooooco0ooocoocoo0ocooo0coC0coCocoooo0o00o 


say 


HARDER: . 
PRTECD: . 
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GLOBAL DATA SECTION 


+ + + + 
11! 10! O1! OO! <= UUT CODES-EQUIV TO A 
aor ae ey eee Smee -THAT 1S U 
1 11! 10! O1! OO! <- WUT CODES- 
+ 


ee ee ee ee ee ee ee 


Se Be Be 


. 


UN | T#O/DR V0 S1DE#O/DRVEO 
UN! T#O/DR VA1 SIDE #O/DRVE1 
UNI T#1/DRV8O SIDE #17DRV8O 
UNIT#1/DRVA1 S1DE#1/DRV#1 


11-=-<DRIVE & 
i----<UNIT @ (RXOZ) OR SIDE # (RXXX) 


eRe Be Be Be Be Be Be Be 


' ' t 1 ' 

' 15! 14! 13! 12! 11! 10! O09! O8! O7! O&! OS! O4! O3! O2! O1! GO! 

ee Se ore ne et Sn Se ee oe ee ee ee ee ee ee 

; 'ERR'ERR'DON!'ITRIWRT! RO'FIL!UNK! ! DD! DD! ! ' CK! ! ! 
 ERRTYP: (BIT!NOT! NO! ae! aad 4 ga - IMIS!UNX! - OAT !SUM!CRC! SEK: 


t  ISET!ITR!DON! 
ss REE EN tt de OO I al Ss stk, A RN 
! ! ! 'DRV! ! ' WRONG 'DON!'SID!DORV!NO DONE! FUNCTION ! 
: SYSERR: 1UNR! TO!DEN!DEN!SYS!DAG! oY! ! CAUSING ! 
VERRIERRIERRIERRIERRIERR'SIDIORV! AZ'ERRIERR'FUN!INT! ERROR ! 
Ssssssseasstessttsstssstscssetssstssstssstesstssstssstssstssstssstesstecs! 
! 'CRC'DAT! RDO'WRT!SEK! 
! ' RT! RT! RT! RT! RT! 


+NOTE: RXXX 1S REFERENCE FOR FURTHER EXPANSION 
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READ ERROR CODE BUFFER SEQ 0031 

. SBTTL READ ERROR CODE BUFFER 
XERUUT: .BYTE 0 ZERROR CODE UUT 

: ve @ WORD COUNT UUT 
CTKO: .BYTE O ;CUR TRK ORVEO 
ie seve = 6& CUR TRK DRV#1 
TTRK: .BYTE O + TARGET TRK 

~ 8a & ; TARGET SEC 
SFTSTS: .BYTE 0 MICRO CODE SOFT STATUS 

RK: YTE O BAD TRK ADR 


GLOBAL AREAS MACY11 30A(1052) 28-JUL-78 13:35 PAGE 23 


CZRXDA. Pil 27-JUL-78 09: 00 GLOBAL TEXT SECTION SEQ 0032 
3418 .SBTTL GLOBAL TEXT SECTION 
3419 
3420 +4 
3421 + THE GLOBAL TEXT are CONTAINS FORMAT STATEMENTS. 
3422 > MESSAGES. AND ASCII INFORMATION THAT ARE USED IN 
3423 ; MORE THAN ONE TEST. 
3424 ;-- 
3425 
3426 ; 
ae > NAMES OF DEVICES SUPPORTED BY PROGRAN 
3429 002322 DEVTYP RX02+ 
RRS) 
3436 ; 
3437 ; FORMAT STATEMENTS USED IN PRINT CALLS 
3438 ; 
3439 
3446 
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a4 .SBTTL GLOBAL ERROR REPORT SECTION 


34 : THE GLOBAL ye REPORT SECTION CONTAINS THE PRINTB AND PRINTX CALLS 
3461 + THAT ARE USED IN MORE THAN ONE TEST. IT ALSO INCLUDES THE ASCII! MESSAGES 
met + THAT ARE USED BY THE PRINTE AND PRINTX CALLS. . 


65 
rs 002330 BGNMSG 


3475 BIT-NAMES FOR THE DEVICE REGISTERS 


3491 . EVEN 
3492 
3493 002330 





SEQ 0033 
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CZRXDA. P1i 27-JUL-78 09: 00 GLOBAL SUBROUTINES SECTION SEQ 0034 
3496 .SBTTL GLOBAL SUBROUTINES SECTION 
3497 
3498 344 
3499 + THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
aay + THAT ARE USED IN MORE THAN ONE TEST. 
3502 
3503 3 ++ 
3504 > FUNCTIONAL ig estes 
3505 ; SUBROUTINE TO.. 
3512 ; INPUTS: NONE 
3518 > IMPLICIT INPUTS: NONE 
3625 + OUTPUTS: RANUM 
3631 > IMPLICIT OUTPUTS: NONE 
3538 > SUBORDINATE ROUTINES USED: NONE 
3547 > FUNCTIONAL SIDE EFFECTS: NONE 
3555 >; CALLING SEQUENCE: SUB 
3561 ;-- 
3562 
3569 
3575 . SBTTL MOD U. 1.0 - Boar GENERATOR 
3576 jp toecccces- RANDOM GENERATO wn nn nn nn nn nn nnn n enn ncn eneeenne 
3877 002332 012700 000001 RANGEN: MOV #1,R0 
3678 063700 002420 ADD RAN1,RO 
3579 OO2%2 063700 002422 ADD RANZ, RO 
3580 0026 042700 170000 BIC #170000, RO 
3581 002352 000241 CLC 
3582 002364 006100 ROL RO 
3583 002356 006100 ROL RO 
3584 002360 (10037 002420 MoV RO. RANI 
3585 002364 005000 CLR RO 
3586 002366 013700 002422 MoV RANZ2. RO 
3587 002372 006000 ROR RO 
3688 002374 006000 ROR RO 
35689 002376 063700 002420 ADD RANI, RO 
3590 002402 042700 170000 BIC #170000. R0 
3691 002406 010037 002422 MoV RO, RAN2 
3892 002412 010037 002424 MOV RO. RANUM 
3593 002416 000207 RTS PC 
3595 002420 000000 RANI 0 
359% 002422 000000 RANZ 0 
sa 002424 000000 RANUM: O 


Shad 


See eer necncBORGRRecheBecccarcesSOReRReERSS SF 
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002576 


015644 
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MO 


002526 
002526 
002530 
002530 
002526 
002530 
002530 


D U.A1 - CONVERSION UUT CODE --> SUTPTR 
MOD U.A.1 - CONVERSION UUT CODE --> SUTPTR 


;UNIT CODE TO BE CONVERTED 
SYS UNDER TEST AS CONVERTED 


. SBTTL 
CVUTST: NOP 
CLR 
BIT 
BNE 
BIT 
BNE 
BIS 
BR 
1$ BIS 
BR 
23 BIT 
BNE 
BIS 
BR 
3$ BIS 
NOP 
ENDCVT: RTS 
CVUNIT: 0 
SUTCV: O 
7MOD U.A 1 ----- 
. SBTTL 
CVSTUT: MOV 
CLR 
15: BIT 
BNE 
ASR 
INC 
BR 
2$ Mov 
ASL 
MoV 
ADD 
MOV 
RTS 
UNITST: O 
7MOD 2. OA ited 
ENDMOD 


25-1 


SUTCV 

#1, CVUNIT 
2$ 

#2. CVUNIT 
1$ 


END MODULE 
MOD U. A. 2 - CONVERSION SUTPTR --> UUT CODE 


;CLERR SYS UNDER TEST CONVERTED 
IF ORIVE #0. 


THEN 
+ 1F UNIT #0 OR RXO4 SIDE 40. 


; SET FOR UNIT CODE=00 IN SUT WORD 
SELSE. SET FOR UNIT CODE=10 IN SUT HORD 
iF UNIT #0 OR RXO4 SIDE #0, 

SET FOR UNIT CODE=01 IN SUT WORD 


BR TO END 
+ELSE. SET FOR UNIT CODE=11 IN SUT WORD 


; i SELEC TED, 


RETURN 


+ SAVE SUT POINTER 
ea (RESET UNIT CODE) 


7 IF LS 


5 
+EQUALS 1 . THEN BR TO 2$ 
SHIFT RIGHT RS 


+ INCREMENT RY 


BR TO 18 


+ THEN RY CONTAINS UUT CODE 

> DOUBLE UNIT CODE FOR ADR 

SET UUT OFFSET 

+GET UUT UNIT@ FOR PRINT 

+ SET UNIT=PRINT UNITS 
ETURN 
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CZRXDA. P11 27-JUL-78 09: 00 MOD U.A. 2 - CONVERSION SUTPTR --> UUT CODE 
3659 . TITLE MISCELLANEOUS SECTIONS 
ane .SBTTL REPORT CODING SECTION 
3698 002602 BGNMOD 
3699 
3700 
3701 ; "THe REPORT CODING SECTION CONTAINS THE 
out + “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS 
3704 
3705 jm mmr e me nme nnn wenn mene wwe eww cee wenn nnn ene nme enn n ewww nnn enconn= 
3706 002602 BGNRPT 
3707 002602 000240 REPORT: NOP ; 
3708 00260% 012737 003354 003140 Mov @PTI9SP.PRT1 SETUP REPORT HEADER PART 1 
3709 002612 012737 003436 003142 MoV @PTUNT1,PRTZ ; 
3710 002620 004737 003046 CALL PRTHOR +PRINT HEADER 
3711 002624 NOP + SETUP DATA PART 1 
3712 002626 003272 CLR LINECT ; ZERO Cine. COUNTER 
3713 002632 005037 003300 CLR PRNUM ; CLEAR PRINT MODE 
371% 002636 012702 004442 Mov @CKSML, RZ ; SET BEGIN AOR OF DATA-PART 1 
3715 002642 012701 003506 Mov #PRIDXX. R1 ; SET BEGIN AOR OF TABLE LABLES-PART 1 
3716 002646 012737 000023 003274 MoV #19., LINES ; SET # OF LINES TO PRINT 
3717 002654 004737 003144 CALL PRTDAT :PRINT DATA 
3718 002660 000240 NOP ; 
3719 002662 012737 003363 003140 MoV @P TEC. PRT1 + SETUP HEADER PART 2 
3720 002670 012737 OO3436 003142 MoV @PTUNT1,PRTZ ; 
3721 002676 004737 003046 CALL PRTHOR PRINT HEADER 
3722 002702 000240 NOP + SETUP DATA PART 2 
3723 002708 012737 000001 003272 Mov #1, LINECT ; SET LINE COUNTER=1 
372% 002712 012737 000001 003300 MOV #1. PRNUM ; SET PRINT MODE=1 
3725 002720 012702 004672 Mov RECLOG. RZ ; SET BEGIN AOR ERROR CODE DATA-PART 2 
3726 002728 012701 003455 Mov @PTECN. Ri ; SET ERROR CODE PRINT-FORMATED MSG-PART 2 
3727 002730 012737 000027 003274 Mov #23..LINES ; SET # OF LINES TO PRINT 
3728 002736 012737 003455 003276 MoV @PTECN.LINTYP ; 
3729 002784 000240 NOP ; 
3730 00276 004737 003144 CALL PRTDAT :PRINT DATA 
3731 002762 000240 NOP ; 
3732 002764 000240 NOP ; 
3733 002766 012737 003410 003140 MoV @PTTK, PRT1 SETUP HEADER PART 3 
3734 00276" 012737 003436 003142 Mov @PTUNT1.PRT2 ; 
3735 002772 004737 003046 CALL PRTHOR +PRINT HEADER 
373%@ 002776 ; 
3737 003000 006037 003272 CLR LINECT ; 
3738 003008 012737 000001 003300 MoV #1. PRNUM ; 
3739 003012 012702 005156 MoV RTKXX, RZ + SETUP DATA PART 3 
3740 003016 012737 000115 003274 Mov 477..LINES ; 
3741 003024 012737 003471 003276 MoV @PTTKN.LINTYP ; 
3742 003032 004737 003144 CALL PRTDAT +PRINT DATA PART 3 
3743 003036 000240 ENDRPT: NOP ; 
tre 003040 ENORPT 
3746 003042 000000 UTTST: 0 ;UNIT @ 
3747 003044 000000 UTCNT: 0 UNIT COUNT 


L 3 
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CZRXDA. P11 27-JUL-78 09: 00 PRINT REPORT HEADER 
sree . SBTTL PRINT REPORT HEADER 
3752 003046 005003 PRTHOR: CLR R3 ; 
3753 003050 000240 ; 
3754 003052 013705 003140 Mov PRT1,R5 +SETUP 1ST PART OF HEADER PRINT 
3755 003056 004737 003332 CALL PREPT2 PRINT 1ST PART 
3756 003062 012737 007356 003042 MoV #UTOO, UTTST +GET oe ROR OF UNITS-->TESTED FLAGS 
3757 003070 012737 000003 003044 MoV #3, UTCNT +SET UNIT COUNTER 
3758 005777 177740 1$: TST @UTTST Pala at TESTED FLAG 
3759 003102 100407 Bn 2s ;NOT=-1, THEN 
3760 003108 017737 177732 003330 MoV @UTTST, PAR ; SET UNIT TESTED & FOR PRINT 
3761 003112 013705 003142 MOV PRTZ.R5S +SET UNIT MSG 
3762 003116 004737 003302 CALL PREPT1 +PRINT UNIT @ 
3763 003122 062737 000002 003042 235: AOD #2, UTTST + ADVANCE ADR OF UNIT TESTED FLAG 
376% 003130 005337 003044 DEC UTCNT ;DECREMENT UNIT COUNT 
3765 003134 001360 BNE 1$ + 1F UNIT COUNT=0, THEN 
hes 003136 000207 RTS PC + RETURN 
3768 003140 000000 PRT1: O ; 
3769 003142 000000 PRTZ2: 0 ; 
3770 J Perec cmon eonccosccosocosscccccoseccocccsncccccsccesoscosscossscsccccoce 
3771 
re SBTTL PRINT REPORT DATA 
3774 0031494 000240 PRTDAT: NOP ; 
3775 0031%6@ 005737 003300 1$: TST PRNUM + 1F MODE 
3776 003152 001410 BEQ 2s ; 
3777 003154 013737 003272 003330 MOV LINECT. PAR +SETUP LINE # TO PRINT 
3778 003162 013705 003276 MOV LINTYP, RS +SETUP LINE TYPE TO PRINT 
3779 003166 004737 003302 CALL PREPT1 ;PRINT LINE @ 
3780 003172 000403 BR 3$ ; 
3781 OO317% 012106 2s: MOV (R194, RS +SETUP LOG TITLE ADR 
3782 003176 004737 003332 CALL PREPT2 +PRINT LOG TITLES 
3783 003202 012737 007356 003042 3%: MoV #UTOO, UTTST GET UNIT & FOR PRINT 
378 003210 012737 00004 003044 Mov #4, UTCNT + SETUP UNIT COUNT 
3785 003216 012237 003330 4$: Mov (R2)+, PAR ;SETUP DATA TO PRINT 
3786 003222 005777 177614 TST @UuTTST + 1F UNIT @ NOT = -1 
3787 003226 10040" Bn 5$ ; THEN 
3788 003230 012705 003426 MOV @PTDATI.RS +SETUP TO PRINT 
3789 0032) 004737 003302 CALL PREPT1 PRINT DATA 
3790 OO03280 062737 000002 003042 5%: ROD #2, UTTST +SETUP TO CK NEXT UNIT 
3791 003246 003044 DEC UTCNT Ar eet ge! UNIT COUNT 
3792 003252 001361 BNE 4$ 1F DONE ALL UNITS THEN 
3793 003264 003272 INC LINECT ; INCREMENT LINE COUNT 
37% 003260 023737 003274 003272 CMP LINES. LINECT + 1F DONE ALL 
379% 003266 101327 BHI 1$ LINES. THEN 
379% 003270 000207 RTS PC ; 
3798 003272 000000 LINECT: O +LINE COUNTER 
3799 003274 000000 LINES: 0 + OF LINES TO PRINT 
3800 003276 000000 LINTYP: 0 +LINE PRINT TYPE. 
3801 003300 000000 PRNUM: 0 sPRINT MODE 
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= =Beaneneun-o 


003302 
003304 
003326 


003330 


003455 
003471 


27-JUL-78 09: 00 


034461 
022516 


n 3 
28-JUL-78 13:35 PAGE 25-4 
PRINT REPORT TYPE 1 


; SBTTL PRINT REPORT TYPE 1 
PREPTI: ; 
PRINTS RS. PAR 
PC ; 
PAR: 0 ; 
SBTTL PRINT REPORT TYPE 2 
PREPT2 
PRINTS R5 
PC 
PTI9SP: .ASCIZ /%N%S19/ 
PTEC: _|ASCIZ /%NXNXAERRXNXACODER / 
PTTK: _ASCIZ /%NXNXATRACK® / 
PTDAT1: _ASCIZ /%A %D6/ 
PTUNT1: _ASCIZ /%A UNIT#XDIXA / 
PTECN: _ASCIZ /%XN%O2%AD%S3/ 
PTTKN: asciz 7 %N%S1 X02%S.3/ 


ES EEO OEE EEE EE EEE EEE EEE EEE EEE EEE EE EEE EEE ROE EE EEE EEE EEE 


SEQ 0038 


BF 


N 3 
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. Pil 27-JUL-78 09: 00 PRINT REPORT TYPE 2 
003506 003554 PRIDXX: .WORD PRIDO1 
003510 003603 -WORD PRIDOZ 
003512 003632 -WORD PRIDOZ 
00351% 003661 -WORD PRIDOY 
003516 003710 -WORD PRIDOS 
003520 003737 -WORD PRIDO6 
003522 -WORD PRIDO7 
003528 004015 -WORD PRIDOB 
003526 004044 -WORD PRIDO9 
003530 004073 -WORD PRIDIO 
003532 004122 -WORD PRIDI1 
OO35 004151 -WORD PRIDIZ 
003536 O04 -WORD PRIDI3 
003540 004227 WORD PRIDI4 
OO3542 004 WORD PRIDIS 
OO3S44 004305 WORD PRIDI6 
004 D PRIDI7 
003550 004363 WORD PRIDI8 
003552 004412 WORD PRIDI9 
OO3554 047045 O4O44S O44103 PRIDO1: .ASCiZ2 /%NXACHECK SUM: / 
OWS 022516 043101 1002: .ASCIZ /2NXAF ILL-EMP — LOG: / 
003632 O47045 O8O4NSS 047516 PRICO3: .ASCIZ ./XNXANO ERR BIT / 
003661 O45 16 501 PRIOUN: .ASCIZ /%NXAINTER-NO DONE ERR: / 
003710 O47045 O40NSS 047111 1008: .ASCIZ /X%NXAINTERRUPT ERR: / 
003737 O¥S 022516 051501 PRIDOG: .ASCIZ /XNXASEEK: / 
003766 047045 O46 051103 PRIDO7: .ASC!Z /ZNXACRC ERR: / 
00%015 O¥S 022516 041501 PRIDOS: .ASCIZ /XNXACRC BAD: / 
CONONs = 047045 PRIDOD: .ASCIZ /XNXAREAD ERR: / 
00%073 O¥S 022516 053501 PRIDIO: .ASCIZ /XNXAURITE ERR: / 
004122 0470"5 PRID11: .ASCIZ /XNXADATA ERR: / 
004% 151 OS 022516 042101 PRID12: .ASCIZ /XNXADEL DATA ERR / 
O0%200 O47045 O40N86 051110 PRIDDIS: .ASCIZ /XNXAHRD SEEK: / 
00% 227 OS 022516 044101 PRIDI4: .ASCIZ /XNXAMRD CRC ERR / 
004256 O47045 O804"6 051110 PRIDIS: .ASCIZ /%NXAHRD CRC / 
00% 305 OWS 022516 044101 PRIDI6: .ASCIZ /XNXAHRD / 
CON334 O8704S O4044N5 051110 PRIDI7: .ASCIZ /2NXAHRD WRITE / 
00% 363 OS 022516 0441 PRID18: .ASCIZ /%NXAHRD DATA: / 
004412 othe O4O4eS 051110 PRIDI9: Ue /2NZRARD DEL. DATA ERR: / 


PEPREEEL LULL EERE EE REEL ici 


or a 


| 7, 
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CZRXDA. P11 27-JUL-78 09: 00 STATISTICAL TABLES SEQ 0040 


3878 .SBTTL STATISTICAL TABLES 

3879 § Pemee creo ewecoooscoes ccecccoscesocoosoosssossosssssesssessesssssesesces 
3880 

3881 004442 000004 CKSML: .BLKH 4 

3882 004452 000004 BUFERL: .BLKW 4% FILL ceReTy BUFFER ERROR LOG 
3883 00% 000004 RL: .BLKH 4 NO ERR LOG 

388% 008472 O00004 INT: .BLKW 4 7 IN RRUPT - NO DONE LOG 
3885 004% 000004 INTER: .BLKW 4 ; INTERRUPT ERR 

3886 00%512 OG00004 K: .BLKH 4 + SEEK ERR 

3887 004 000004 CRC: .BLKW 4 ; ERR 

3888 00% 000004 CRCBAD: .BLKW 4 CRC BAD ERR 

3889 00%5"%2 000004 RO: .BLKH 4 + READ ERR 

3890 004% 000004 WRT .BLKH 4 ;WRITE ERR 

3891 00%562 000004 A 8 .BLKW OY + DATA ER 

3892 00%572 000004 OLOTER: .BLKKH 4 *DEL DATA ERR 

3893 00%602 000004 EK: BLKW 4 ;HARD SEEK ERR 

389% 00%612 000004 RC: .BLKW 4 +HARD CRC ER 

3895 00%622 000004 HCRCBO: .BLKW 4 +HARD CRC BAD ERR 

389% 00%632 000004 0: BLKH 4 ; RERO 

3897 O0%64%2 000004 HURT: BLEW 4 +HARD WRITE ERR 

3898 00%652 000004 HOATA: .BLKWH 4 +HARD DATA ERR 

3899 004662 000004 D0: BLKW 4 +HARD DEL DATA ERR 

3900 004672 000132 ECLOG: .BLKW 90. ERROR CODE LOG 

3901 005156 000464 TKXX: BLKW 308. + TRACK ERR LOG 

3903 006326 000000 ENDST: .WORD 0 +END TABLE 

3916 

3917 EVEN 

3918 





—— 


. 
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.SBTTL INITIALIZE SECTION 


i++ 
+ THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
+ AT THE BEGINNING OF EACH PASS. 


’ 


BGNINIT 


READEF EF. CONTINUE 

BCOMPLETE FIN 
005037 002204 > CLEAR RESTART FLAG 
Rotese *+CLEAR SYS UNDER TST WORD 


003046 


012737 000001 MOV #1. RES +SET RESTART FLAG 
006620 


RESET UNIT@1 
/RESET UNIT#2 
;RESET UNIT&3 
RESET UN: TRY 


& IT 
LSUNIT, UNIT 
BEQ FIN 
GPHARD UNIT. PLOC 


BNCOMPLETE 15 
JSR +" - UNPKHP 


BR 
INI TER: @INTER1 
MoV #1, ABORT 


UOVECT, #INTHO, #PRIO7 
UIVECT 


2$ 
UIVECT, @INTH1, #PRIO7 


000000 
177777 
047045 047117 INTERI: le 7%NXRONLY FOUR UNITS ALLOWED, START OVER/ 


ENDINIT 





do 4 
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3991 .SBTTL MOD |. 1 - UNPACK HARDWARE P-TABLES 
3993 
006674 000240 UNPKHP: NOP ; 
3995 006676 007354 CLR UNT + CLEAR UNT 
39% 006702 013701 006616 PLOC.R1 + SAVE P-TABLE LOCATION 
3997 737 0066 1FAII: TST UNIT + 1F UNIT 
3998 006712 BNE 1FBI1 71S ZERO 
3999 006718 012137 002226 MOV (R1)+, UGAOR +LORD UNIT #0 ADR 
4000 720 012137 002302 MOV (R1)+, UOVECT +LOAD UNIT #0 VECTOR 
4001 006728 000426 BR EIAI! +BR TO END IF ‘A’ 
726 021137 002226 1FBii: CMP (R1), UOROR +1F THIS ADR 
4003 006732 001003 BNE 1FCI4 EQUALS UNIT @0 ADR 
4008 006738 062701 000004 ADD #4,R1 + INCREMENT TEMP #1 BY 4 
4005 0067480 000420 BR EIAI1 7BR TC ENO IF ‘A’ 
4006 006742 005737 002230 1FCii: «TST U1AOR + 1F_UN1 ADDRESS 
4007 006746 1005 BNE 1FDI1 NOT LOADED PREVIOUSLY 
4008 006750 012137 002230 Mov (R1)+, UIADR +LOAD UNIT#1 ADR 
4009 006764 012137 002304 MOV (R1)+, UIVECT +LORAD UNIT @1 VECTOR 
4010 05 BR EIcii BR TO ENO IF ‘C' 
“011 021137 002230 1FOI1: CMP (R1),U1ADR + 1F UNIT AOR 
4012 006766 001155 BNE ELDI1 +EQUALS UNIT #1 AD 
4013 006770 062701 000004 ADO #4,R1 + THEN ADD 4 TO TEMP #1 
401% 006778 012737 000001 007354 EICIi: Mov #1. UNT +SET UNT=1 
007002 000240 EIAl1: NOP ; 
4016 007004 7 002152 FEW: TST RXXX + 1F RXXX 
4017 G007010 001446 BEQ FIN + THEN 
8018 007012 000240 1FF Ii: NOP ; 
4019 00701% 005711 TST (R1) + 1F DRIVE #0 
007016 001021 BNE IFHI1 + THEN 
4021 007020 062701 000002 1FGi1: ADO #2,R1 :ADD 2 TOT #1 
4022 00702" 005711 TST (R1) + 1F SIDE #0 SELECTED 
007026 001006 BNE ELGI1 ; THEN 
402% 007030 052737 1 002212 BIS #1,SUT +SET SIDE #0, DRIVE &0 
4025 007036 007352 CLR UNTCOD + CLEAR UNIT CODE 
4026 0070:2 000501 BR EIFI1 *+BR TO END IF ‘F' 
4027 OO7A4 052737 OO0004 002212 ELGI1: BIS #4, SUT SET SIDE #1. DRIVE &0 
4028 007062 012737 000002 007352 MoV #2, UNTCOD +SET UNIT CODE = 10 
4029 007060 000472 BR IF i +BR TO END IF ‘F' 
007062 062701 000002 IFHI1: ADD #2.R1 +ADD 2 TO TEMP @1 
"031 007066 006711 TST (R1) + 1F SIDE #0 SELECTED 
4%032 007070 001007 BNE ELHI1 + THEN 
"033 007072 062737 000002 002212 BIS #2. SUT +SET SIDE #0, DRIVE &, 
4038 007100 012737 000001 007352 MOV #1, UNTCOD +SET UNIT CODE = 11 
4036 007106 000457 BR EIFI1 +BR TO END IF 'F' 
007110 062737 000010 002212 ELHIi: BIS #10, SUT +SET SIDE #1, DRIVE #1 
"037 007116 012737 000003 007352 MOV #3, UNTCOD +SET UNIT CODE = 11 
¥038 007128 000460 BR EiF ii +BR TO END IF ‘F' 
4039 0071Z 062701 000002 IF i114: #2.R1 +ADD 2 TO Ri 
40¥0 007132 005711 TST (R1) + 1F SIDE 
4041 007138 001061 BNE ELII1 EQUALS 0. THEN 
007136 162701 000002 1FJti: SUB #2,R1 +SUBTRACT 2 FROM TEMP #1 
4043 0071492 006711 TST (R1) + 1F DRIVE 
4044 007144 1020 BNE 1FLI4 EQUALS ZERO, THEN 
4O4S 7146 006737 007354 1FKIi: TST UNT + 1F UNIT 
4046 007152 001006 BNE ELKI1 EQUALS ZERO 


~~ 
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40%? 007154 052737 000001 002212 
40%8 007162 005037 007352 

4049 007166 000427 

4050 007170 052737 000004 002212 
4051 007176 012737 000002 007352 
4052 720% 000420 

4053 7 7 007354 


052737 000002 002212 
012737 000001 007352 
000406 
052737 000010 002212 
4059 007280 012737 000003 007352 
000240 


4061 007250 012701 007356 
4062 007254 013702 007352 


06020 
4065 007264 013703 006620 
4066 007270 062703 000001 


4082 007366 047045 O46445 051525 
4083 007434 ot ay. 052445 044516 


_ 2 
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MOD |. 1 - UNPACK HARDWARE P-TABLES 


#3, UNTCOO 


#UTOO, Ri 
ita R2 


FOR ADDRESS ING 


“és 


—— 
m 
= 
bad 
m 
Bs 
n~ 
223 
as 
—4 
= 
“nn 
58 
= 
Lan 
=] 
m 


ICAL _UN 

O LOGICAL UNIT@# TO PRINT USER UNITS 
“SET USER UNIT® FOR PRINT OUT 

;BR TO END MOD 


+BR TO END MOD 


. 
, 


LAG 
+ ERRXUUT CODER TABLE SE2% 
; >STORAGE OF USER UNIT# 
FOR PRINT OUT & 
OKUP 


BIS 
CLR 
BR 
ELKI1: BIS 
m0V 
BR 
1FLI4: TST 
BNE 
BIS 
MoV 
BR 
ELLIi: BIS 
MoV 
EIFIi: NOP 
MoV 
MoV 
ASL 
ADD 
MoV 
ADD 
MoV 
BR 
ELI PRINTF 
ELDI1 OS ed 
ENDI1: RTS 
en 0 
UTOO: -1 
UTO1: -1 
UT10: -1 
UT11: -1 
INMSG2: . ASCIZ 
INMSG3: . ASCIZ 
. EVEN 
-MOD 1.1 ----- 


END MODULE 


7%NAMUST SELECT 


RXXX TO SELECT SIDE #17 


7%NXUNITR%DIXNOT SCHEDULED-TWO BUS ADDRESS ONL Y/ 


SEQ 0043 





MISCELLANEOUS SECTIONS MACY11 30A(1052) 
CZRXDA. P11 27-JUL-78 09: 00 


9 
4120 007520 


FY 
28-JUL-78 13:35 PAGE 27 
CLEANUP CODING SECTION 


.SBTTL CLEANUP CODING SECTION 


; "THe CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
+ AT THE END OF EACH PASS. 


,7 


BGNCLN 
EXIT CLN 


. EVEN 
ENDCLN 


MISCELLANEOUS SECTIONS MACY11 30A(1052) 
CZ2R 00 DROP 


XDA. P11 27-JUL-78 09: 


010030 


O4044S 
022516 


007704 


007706 


007706 
002212 
002210 


04 2040 
020101 


G 4 
28-JUL-78 13:35 PAGE 28 
UNIT SECTION 


.SBTTL OROP UNIT SECTION 


‘ig 
; THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
+ TO NO LONGER BE TESTED 


, 


BGNDU 
MoV RO, UN! TOP +GET LOGICAL UNIT &@ 
CLR R2 ;LET RZ=UNIT CODE® & UNIT COUNT /CLEAR IT! 
ADD #1, UNI TOP ;MAKE LOGICAL UNIT®@® = USER UNIT# 
MoV #UTOO, R1 +GET BEGIN UNIT CODE ADRESS 
1$: CMP UNI TOP, (R1)+ 7 1F USER UNITS 
BEQ 2s + 1S = UNIT CODE - UNITS 
INC R2 ; INCREMENT UNIT CODE® & UNIT COUNT 
CMP #5,R2 7 1F MAX @ OF UNITS 
BHI 1$ + EXCEEDED 
NOP > THEN 
PRINTB #DUMNSG2.UNITOP ;PRINT UNIT® NOT FOUND 
BR ;BR TO EXIT 
25: MoV RZ, CVUNIT ;SET UNIT CODE FOR CONVERSION 
CALL CVUTST ;CALL MOD U.A. 1 CONVERT UNIT®# TO SUT CODE 
one SUTCV, SUTORP ; SET SUT DROP CODE = SUT CONVERTED CODE 
MoV SUTCV, SUTORP GET SUT CODE 
BIC SUTORP. SUT ;DROP UNIT SPEC IN SUTDRP 
BIC SUTORP, SOD > CLEAR UNIT SPEC IN SUT DROP 
PRINTB #DUMNSG1.UNI TOP 
NOP ; 
3$ EXIT OU 
UNITOP: O ;UNIT TO BE DROPPED 
SUTORP: O :SYS UNDER TST. DROP BIT 
DUMNSG1: .ASCIZ /%N%A DROP UNIT#%D1%A FROM TESTXN/ 


DUMSG2: .ASCIZ /%N%A COULD NOT DROP UNIT#%D1%A -NOT SELECTED%N/ 


SEQ 0045 


H 4 
MISCELLANEOUS SECTIONS MACY11 30A(1052) 28-JUL-78 13:35 PAGE 29 
CZRXDA. P11 


010032 


010032 


010036 


27-JUL-78 09: 00 


ADD UNIT SECTION 
.SBTTL ADD UNIT SECTION 
++ 
THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 


; TO BE (A) TESTED FOR THE FIRST TIME. OR (B) RESUMED IN TESTING. 
+ “EF. AUNIT" IS SET, THE UNIT WILL BE TESTED AS A NEW UNIT. 


BGNAU 


EXIT AU 


. EVEN 
ENDAU 


iF 
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CZRXDA. P11 27-JUL-78 09: 00 ADD UNIT SECTION 
4220 . TITLE SN TESTS 
<ees +b TEST 1 
my ; “Test TO EXCERCISE RX02/03 SYSTEM 
4225 010040 BGNTST 
4226 .SBTTL MOD 0.0 - EXERCISE A SYSTEM 
4227 J treme m en enna come w nnn nnn eww een nen w ee nnn wenn ewww nnn nn nnn nnn nnnnen= 
4228 
4229 010040 000240 CONTRL: NOP 
4230 0100%2 005037 010244 BOBOO: CLR EXCMP + CLEAR EXERCISE COMPLETE 
4231 0100%6 005037 002206 CLR ABORT + CLEAR ABORT FLAG 
4232 010052 012737 000001 010242 nov #1, INITL SET INITIALIZE FLAG 
4233 010060 005037 002242 CLR RETRY +; CLEAR RETRY FLAGS 
4234 010068 005037 002210 CLR S00 ‘CLEAR SYS DRIVES DONE 
4235 010070 005037 002232 CLR SYSERR + CLEAR SYSTEM ERROR FLAGS 
4236 010078 005037 002234 CLR ERRTYP CLEAR DEVICE ERROR FLAGS 
4237 010100 005037 002236 CLR CSRUUT + CLEAR UUT CSR 
4238 010108 005037 002240 CLR ESRUUT + CLEAR wt ESR 
4239 010110 005037 002312 CLR XE RUUT + CLEAR _UUT TEST ERROR 7. 
4240 010118 012737 000001 015644 MoV #1, SUTPTR ; PRESET USS UNDER TST 
4241 010122 004737 010246 CALL GTSYEX ;CALL MOD 1.0 GET SYS EXER. 
4242 010126 005737 002206 1FAOO: TST + 1F ABORT 
4243 010132 001404 BEQ 1F COO ;NOT = Q, THE 
4244 010138 005737 002232 1FB800: TST SYSERR 7 IF SYS ERR 
4245 010140 001012 BNE THDOO ;EQUALS 0, THEN 
4246 010142 000416 BR THEOO ;BR TO THEN ‘E' 
4247 010144 005737 002232 1FCOO: TST SYSERR + 1F SYS ERR 
4248 010150 001006 BNE TH9OO +NOT20, THEN BR TO THEN ‘D'. ELSE 
4249 010152 BODAOO: B8GNSEG ;BEGIN SEGMENT FOR ERROR LOOPS 
4250 010158 004737 015110 CALL SCSYEX +CALL MOO 2.0 - SCDED SYS EX 
4251 010160 005737 002232 1F000: TST SYSERR 7 1F_SYS ERR 
4252 010164 001410 BEQ EL000 ;NOT=0, THEN 
4253 010166 004737 026650 THOOO: CALL OTSYER ;CALL MOD 4.0 - O/P SYS ERR 
4254 010172 005737 002206 \FEOO: TST ABORT + 1F ABORT 
4255 010176 001403 BEQ EL000 ;NOT=O, THEN 
4256 010200 000240 THEOO: NOP 
4257 010202 DOCLN 00 CLEAN UP 
4258 010204 000414 BR ENDOO +BR TO END 
4259 010206 EL000: CKLOOP +SEE IF LOOP ON ERROR 
4260 010210 ENOSEG +ENO SEGMENT evi ERROR LOOPS 
4261 010212 004737 026626 CALL OTEXCH CALL MOO 3.0 O/P SYS. EX. COMPLETE 
4262 010216 005737 010244 DUAOO: TST EXCMP 300 UNTIL EXERCISE COMPLETE 
4263 010222 001753 BEQ 8DA00 +EQUALS 1 
4264 010224 032737 100000 002164 OUB00: BIT #100000.SWREG =; IF LOOP SET 
4265 010232 001303 BNE 80800 ;NOT SET. THEN 
4266 010234 DORPT 
4267 010236 000240 ENDOO 
me 010240 ENOTST 
4270 010242 000000 INITL: 0 ; INITIALIZE POINTERS FLAG 
4271 000000 EXCMP sEXERCISE COMPLETE FLAG 


y 


HARDWARE TESTS MACY11 30A(1052) 28-JUL-78 13:35 PAGE 29-2 
CZRXDA. P11 27-JUL-78 09: 00 MOD 0.0 - EXERCISE A SYSTEM 
4274 
4275 
mo .SBTTL MOD 1.0 - GET SYSTEM EXERCISE 
4278 010246 000240 GTSYEX. NOP 
4279 010250 004737 010312 JSR PC, GTEXCD 
4280 010254 000240 NOP 
4281 010256 032737 O40000 002164 IFAIO: BIT #40000. SHREG + 1F NO INITIALIZE 
4282 010264 001002 BNE ELAIO +NOT SET. THEN 
4283 010266 004737 010436 JSR PC, GTSYS 
428% 010272 000240 ELA10: NOP 
4285 010274 004737 013474 JSR PC, GTEX 
4286 010300 000240 NOP 
4287 010302 005037 010310 CLR FIRST CLEAR FIRST PASS FLAG 
vase 010306 000207 RTS PC 
4290 010310 000001 FIRST. 1 +FIRST PASS FLAG 
| +MOO 1.0 ----- CD RGU E seocsess reer scererassnestneneuaeneesressawne 
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CZRXDA. P11 27-JUL-78 09: 00 MOD 1.0 - GET SYSTEM EXERCISE 
4295 
4296 
m4 .SBTTL MOD 1.1 - GET EXERCISE CONDITIONS 
4299 
4300 
4301 010312 000240 GTEXCD: NOP 
4302 010314 032737 000001 002164 IFAII: BIT #1, SHREG + 1F SET FOR DOUBLE DENSITY 
4303 010322 001404 BEQ ELAI1 N 
4304 010328 012737 000200 002270 MOV #200, WOCNT ;SET WORD a BYTES 
4305 010332 000403 BR EIAI1 BR TO END IF ‘A’ 
4306 010338 012737 000100 002270 ELAI1: Nov #100, WOCNT SET WORD COUNT=128 BYTES 
4307 010382 013737 002166 015056 EIAI1: Nov OTDITK. OO +SET OUTSIDE TRACK AOR. (FROM SOFTW P-TAB) 
4308 010350 013737 002170 015060 MoV INDITK. ID +SET INSIDE TRACK AOR. (FROM SOFT P-TAB) 
4309 010356 000240 NOP 
4310 010360 032737 000002 002164 BIT #2. SWREG + 1F DEL DATA SET 
4311 010366 001404 BEQ ELB11 + THEN 
4312 010370 012737 000010 002224 MoV #10. DELDAT +SET DEL DATA MODE 
4313 010376 000402 BR E1611 +BR TO END IF ‘B' 
4314 010400 005037 002224 ELB11: CLR DELDAT a DEL DATA MODE 
4315 010404 0 E1811: NOP 
4316 010406 032737 000001 002164 jIFCI1: BIT #1, SHREG ;1F DOUBLE DEN IS SET IN SOFT SWREG 
4317 01041% 001404 BEQ ELC11 ; THEN 
4318 010416 012737 000400 002222 MoV #400, DEN ; SET DEN=DOUBLE 
4319 010424 000402 BR EICi1 +BR TO END IF ‘C' 
4320 010426 005037 002222 ELCi1: CLR DEN i SET DEN=S INGLE 
4321 010432 000240 EICii: NOP 
4322 000207 PC + RETURN 
my 360 1. 1. e<c-- CMD SAE escewersonswcscesneranasnnessescnewseascess 





4 
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CZRXDA. P11 27-JUL-78 09: 00 MOD 1.1 - GET EXERCISE CONDITIONS SEQ 0050 
4327 
4328 
mio .SBTTL MOD 1.2 - GET SYSTEM TO EXERCISE 
4331 
4332 010436 . GTSYS: BRESET + ISSUE BUS RESET 
4333 010840 012737 000040 021550 MOV #ONB IT. RDYWO SET READY WORD = DONE 
4338 010446 013737 002226 021552 nov UOROR. CSRADR + SET ADORE 
4335 0104548 004737 021450 CALL DELAY ;CALL MOD - DELAY FOR DONE 
4336 010860 032777 OOOONO 171540 FAIZ: BIT @ONBIT.,@UOROR ; IF UNIT #0 DONE BIT 
4337 010%66 001011 BNE ELAI2 NOT SET THEN 
4338 010870 013737 007356 012114 Mov UTOO, UNITN +SET UNIT @ FOR PRINT 
4339 010876 012737 012116 012112 nov GINTERZ.1TMSG ;SET PRINT MSGE 
430 008737 012062 CALL I TPRNT +PRINT-UO-NO DONE BIT 
4341 010510 O00NsS 8 EIAIZ BR TO ENO | 
“HZ 010512 012777 O4O000 171506 ELAI2: Nov #40000, @UOAOR -<ELSE-ISSUE PROG INIT TO UO 
“343 010520 012737 OOOONO 021550 MoV @ONB IT, RDYWO +SET READY WORD = DONE 
“NS 010526 013737 002226 021552 MoV UOROR. CSRADR ; TEST ADORESS 
4S 010538 004737 021450 CALL DELAY CALL MOD - DELAY FOR DONE 
436 0105"0 032777 OOOONO 171460 iF612: BIT @ONBIT. @UOROR ; IF UNIT @0 DONE BIT 
4387 010586 001011 BNE ELB12 +NOT SET THEN 
“NS 010560 013737 007356 012114 MOV UTOO, UMITN SET UNIT® FOR PRINT 
49 010566 012737 012214 012112 MOV SINTERS. ITMSG ;SET PRINT MSG8 
4350 01056" 004737 012062 CALL I TPRNT +PRINT-UO. NO BIT 
4351 010570 000415 BR EIA1I2 +BR TO END ‘A’ 
%352 010572 012737 011432 E1812: MoV #2. UNTCNT +SET @ DRVS TO CK 
4353 010600 012737 000001 011436 MoV #1, SUTPOS +SET POSITION IN SUT TO TEST = 1 
4354 010606 006037 011434 CLR UNTCD +SET UUT CODE = 0 
4355 010612 013708 002226 MOV UOADR, R4Y ;SET TEMP @4 = UO ADDRESS 
4356 010616 004737 011102 CALL CKOVAV +CALL MOD 1.2.1 - CK DRIVE STATUS 
4357 010622 000412 BR 1FC12 +BR TO IF ‘C’ 
4358 01062" 005737 002152 EIA12: TST RXXX + 1F RXXX 
4359 010630 001404 1FHi2: BEQ ELH12 + THEN 
4360 010632 042737 000017 002212 BIC #17. SUT + CLEAR RXXX UO SELECTED DRIVES 
4361 010640 000403 BR 1FC12 +BR TO » 
4362 010642 042737 O00003 002212 ELHI2: BIC #3. SUT e RXO2 UO SELECTED DRIVES 
4363 010660 7. 002152 1FCi2: TST RXXX + 1F RXXX 
436% 010664 001401 BEQ 1F012 THEN 
4365 010666 000471 BR 1FG12 BR TO IF ‘G' 
4366 010660 032737 000014 002212 IFDI2: BIT #14, SUT IF U1 
4367 010666 001465 BEQ 1FG12 SELECTED THEN 
4368 010670 032777 OOOONO 171332 IFE12: BIT @ONBIT.@UIADR ; IF Ui DONE BIT 
4369 010676 001446 BEQ ELE12 +SET_ THEN 
4370 010700 012777 O40000 171322 MoV #40000. @UIADR ; INITIALIZE DEVICE U1 
4371 010706 012737 GOO0%O 021550 MoV @0NB 1 T. RDYWO +SET READY WORD = DONE BIT 
4372 010718 013737 021552 MoV U1 AOR. CSRAOR +SET TEST AOR 
4373 010722 004737 021450 CALL DELAY oh iy» WAIT FOR DONE 
4374 010726 032777 171274 IFFI2: BIT @ONB IT, @U1ADR 1 DONE BIT 
4376 01073) 001416 BEQ ELF1i2 SSET THEN 
4376 010736 012737 OO00D4 011436 #4. SUTPOS SET POSITION IN SUT = 4 
4377 010788 012737 000002 011432 MoV #2. UNTCNT +SET @ ORVS TO CK = 
4378 010762 012737 000002 011434 MOV #2, UNTCD +SET UUT CODE = 2 
4379 010760 01370% 002230 MoV U1 ROR. RY +SET TEMP #4 = U1 ADR 
4380 010764 004737 011102 CALL CKOVAV +CALL MOD 1.2.1 - CK DRIVE STATUS 
4381 010770 000424 BR 1FG12 BR TO IF ‘G' 
4382 010772 013737 007362 012114 ELF12: MoV UT10, UNITN +SET UNIT@ FOR PRINT 
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011000 


012214 
012062 


28-JUL-78 13: 35 
MOD 1. 


012112 
012114 
012112 
002212 


002206 


nov SINTERS. 1TMSG ;SET MSGS 
CALL I TPRNT sPRINT - Ul - NO. DONE BIT - PROG INIT 
BR E1E12 7BR TO END | 
ELE12: MoV UT10, UNITN 7SET UNIT® FOR PRINT 
nov SINTERZ.1TMSG ;SET 
CALL 1 _ NT [PRINT - U1 - NO DONE BIT - BUS INIT 
EIE12: BIC 614, SUT ; 
1FGi2: TST SUT 7 1F SYSTEM UNDER TEST 
BNE ELG12 +EQUALS 0, THEN 
PRINTB #INTERY ;PRINT - NO SYS TO TEST 
MoV #1, ABORT +SET ABORT FLAG 
ELG12: ; 
PC ; RETURN 
;MOD 1.2 ----- END MODULE ------------ 0-00-0020 nnn nnn nnn n= === -- 


PAGE 29-5 
2 - GET SYSTEM TO EXERCISE 
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ee oe ga wet ot gett BO ee et ed et oD 
oats OS pet tet oN OD BvD Ga Ged ced Gel su ped ont oad ord Sed seed Geld ee Ged Orth ont pd oe eed od ed eo oD 


FRENSREREZEGR 


oooooococmoooo 

ae eh ped Ged GoD oe Om eed pe OS ea oe oe ee 

NILPSSRSPRIBESR 
& £o 


RP 
em mo 
zo 


ae 
eo 


£oQ 


011124 
011416 


28-JUL-78 13:35 
MOD 1.2.1 - CK DRIVE AVAILABLE 


011416 


002212 


011434 


011422 
011424 


011422 
000204 
021552 
021550 
000160 
012112 
000140 
012112 


011434 
000102 
012112 


B0A121: 
1F A121: 


1FB121: 


ELB8121: 
£18121: 


1FH121: 


1FC121: 


1F0121: 
1F E121: 
1FF 121: 


€1€121: 


1FG121: 


E1A121: 
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MOD 1.2.1 - CK ORIVE AVAILABLE 


#1, REF ORM 
R4, ITCSAD 
#2,R4 

R4, ITOBAD 


te’ SuT 


#UTOO. R1 


_——_— Wee 


ADR 
na #1 & SUT 
é 

UNIT te FOR AOR 


OR ny NT 
hr @1 SET IN TEMP &3 


T READ STATUS ie #1 
SET PRINT FOR ORV & 
+BR TO END IF 
;SET READ STATUS ORV #0 
+SET PRINT FOR DRIVE 8&0 
EXECUTE READ STATUS ON DRIVE AT TEMP #4 
PASS DOWN ADRS 


PASS DOWN “DONE” Hy TO TEST 
ALL MOO oa OR DONE BIT 


Be Be Be Be Be Be Be Be Be Se Be Be 
aa mH — 
m Hs 
7 
Ce ieee 


SET MSG@ - NO ORIVE READY 
BR TO ENO IF 
+1F UNIT IS TO BE TESTED AS RXXX 


; OE #1 

;NOT READY. THEN 

7 SET MSGe 

;CALL PRINT - NO SIDE RDY 

;CALL OROP UNIT 

788 TO ENDIF ‘A' 

7 1F REFORMAT FLAG 

;NOT SET. THEN 

ORMAT ORIVE DENSITY 

iT TO TEST SYS UNDER TEST 
‘ COUNT 


e. Se Be oe * 
r 
m 
aQ 
~4 
b=] 


SEQ 0052 


HRROWARE TESTS MACY11 30A(1052) 28-JUL-78 13:35 PAGE 29-7 
CZRXDA. P11 27-JUL-78 09: 00 MOD 1.2.1 - CK ORIVE AVAILABLE 


011416 


011440 
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CZRXDA. P11 27-JUL-78 09: 00 MOD 1.2.1.1 - REFORMAT DRIVE DENSITY SEQ 0054 
me | .SBTTL MOD 1.2.1.1 - REFORMAT DRIVE DENSITY 
4469 
4470 O011442 033737 011436 002212 REFORV: BIT SUTPOS, SUT +16 UNIT SELECTED IN 
4471 011450 001002 BNE 1A1211 SYS UNDER TEST 
4472 011452 000137 012060 JP 1211 + THEN 
4473 011456 032737 000001 002164 1A1211: BIT #1, SWREG + 1F DOUBLE DENSITY 
4474 011468 001412 BEQ 1€1211 +SET. THEN 
4475 011466 032777 OOOONO 177734 181211: BIT one + 1F DISKETTE 1S DOUBLE DENSITY 
4476 011978 001171 BNE 1211 + THEN BR TO END. ELSE 
4477 011976 012737 012440 012112 Mov PN daa +SET MSG DSK SGL DEN 
4478 011508 004737 012062 CALL I TPRN CALL PRINT - 
4479 011510 O0041% BR L81 ait BR TO ELSE ‘B' 
4480 011512 032777 OOOO4O 177710 1C1211: BIT oe  ihicodgy + 1F DISKETTE 
4481 (111520 001557 BENQ x12 +1S_ NOT SINGLE DENSITY, THEN 
4482 011522 012737 012646 012112 nov al Tnsce, 1TH ; SET aor OSK OBL DEN 
4483 011530 004737 012062 CALL I TPRNT CALL PRINT - 
4484 011638 005037 011420 CLR REFCHO + SET REFORMAT CMD TO SINGLE DENSITY 
4485 011580 O00403 BR 101211 BR TO IF ‘D' 
4486 0115%2 012737 OOO4OO 011420 181211: MoV #8178, REFCMO i SET REFORMAT CMD TO DOUBLE DENSITY 
4487 011550 101211: MANUAL 1F MANUAL INTERVENTION 
4488 011552 BNCOMPLETE L01211_ ; HS ALLOWED, THEN 
4489 011554 GMANIL FCKMSG, FORMCK, 1, YES 
4490 011570 005737 011440 1€1211: TST FORMCK + 1F REFORMATT 
4491 011574 001516 BEQ LE1211 THEN 
4492 011576 005037 011440 CLR FORMCK CLEAR REFORMATT CK 
4493 011602 052737 000011 011420 BIS #11, REFCMO ;SET REFORMAT CMO 
449% 011610 032737 000001 011434 IF12i1: BIT #1. UNTCD +1F ORIVE #1 
4495 011616 001403 BEQ 161211 + SELECTED 
4496 011620 052737 000020 011420 BIS #6 1T4, REFCMD +SET DRIVE #1 ON REFORMAT CMD 
4497 011626 005737 002152 1G1211: TST RXXX + 1F RXXX 
4498 011632 001407 BEQ £G1211 DEVICE AND 
4499 01 2737 000002 011434 BIT #2. UNTCD +SIDE & 
4600 011642 001403 BEQ €G61211 + SELECTED. THEN 
4501 011684 062737 001000 011420 BIS #6 1 T9, REFCMO +SET SIDE #1 ON REFORMAT CMD 
4602 011662 013777 011420 177546 £EG1211: MoV REFCMO, alTCSAD ; SEND REFORMAT CMO 
4503 011660 013737 011426 021552 MOV ITCSAD. CSRAOR ;PASS UNIT ADRS 
460% 011666 012737 000200 021550 MoV #TRBIT. ROYWO PASS "TR" BIT TO TEST 
4605 011678 00%737 021450 CALL DELAY *CALL DELAY 
4606 011700 006737 002232 1H1211: TST SYSERR cif 
4607 011708 0010%6 BNE LH1211 iT 0. ERR 
Cie} 1706 012777 000111 177514 MoV #111.21TDBAD +SEND VARIFY WORD (ASCII “I") 
] 011718 012737 013067 012112 MOV GITMSGS.ITNSG ;SET MSG# WRG DEN REFORMAT 
4510 1 737 012062 CALL I TPRNT +CALL PRINT - 
4611 011726 013737 011426 021552 MOV ITCSAD. CSRAOR ;SET UNIT BUS AOR 
2 011709 012737 021550 MOV @ONB IT. ROYWO +SET DONE BIT TST 
4613 011782 012737 901000 021544 MoV #1000, RYDX +SET DELAY MULT HIGH 
451% 011760 004737 021460 CALL DELAY +DELAY UNTIL DONE OR T. 0. 
4616 011768 012737 000020 021544 MoV #20, RYDX +RESET DELAY MULT 
4616 HT «| 032777 OOOOWO 177436 111211: BIT #40, a1 TCSAD + 1F DONE BIT 
4617 O11 001410 BEQ L11211 + SET. THEN 
4618 011772 03 100000 177426 1J1211: BIT #100000.a1TCSAD ; IF ERR BIT NOT SET 
"619 012000 001427 BEQ x + THEN BR TO EXIT 
4620 012002 012737 013146 012112 MOV @1TER1. ITMSG +ELSE, SET “ERROR ON REFORMATT" MSG 
4621 012010 000417 BR £01211 +BR TO END 
4622 012012 012737 013244 012112 L11211: MoV #1 TERZ, ITMSG SET "NO DONE BIT AFTER REFORMATT” MSG 
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27-JUL-78 09: 00 


012526 
012735 
013003 
012062 
013454 


28-JUL-78 13:35 PAGE 
MOD 1 


012112 
012112 
012112 


29-9 
. 2.1.1 - REFORMAT ORIVE DENSITY 


BR £01211 BR TO END IF ‘D' 
LH1211: MOV SITMSGY.ITMSG + SET MSG# NO "TR" BIT TIME OUT ERR 
BR £01211 7BR TOE F ‘D’ 
LE1211: Hoty @1TMSG7, 1 TNSG aT oer ae DEN 
L01211: MoV SITMSGS.ITMSG ;SET MSG® MAN INTERVENTION NOT ALL 
E01211: CALL 1 TPRNT CALL PRINT - MSG SET UP 
CALL 1 TOROP ;CALL DROP UNIT 
M1211: RTS PC + RETURN 
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CZRXDA. P11 27-JUL-78 09: 00 MOD 1.2.1.1 - REFORMAT DRIVE DENSITY 


SBTTL MOD U. 1.2 - INITIALIZE PRINT 


012062 
012064 
012110 


012112 1THSG: ; INITIALIZE MSGS 
012114 ; SUNIT® FOR PRINT 


012116 _ 7%NXAUNITEXD1XA---NO DONE BIT AFTER BUS INITIALIZE ROP UNIT/ 
t %A---NO DONE BIT AFTER PROG INITIAL! DROP UNIT/ 


Y/ 
TY-SINGLE DENSITY DISKETTE/ 
— SET DENSITY CMD/ 


Y 
DENSITY - DOUBLE DENSITY DISKETTE 
TTE WR NSITY/ 
NTERVENTION REQ'D - REFORMATT/ 
RRUPTAN/ 
RETER REFORMAT COMMAND SEQUENCE/ 
a REFORMAT COMMAND SE QUENCE/ 
ARE YOU SURE?/ 


R2222 
NvNw 
eek eb eed ome 
RRRK 


se 
a 


047125 
047125 
047125 
047125 
042513 


013737 011436 ITDROP: MOV ;SETUP SYS. UNDER TEST DROP BIT 
enosne UNTCD ;DROP THIS UNIT FROM TEST 


NO ; 
000207 RTS PC ; RETURN 





F 5 
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CZRXDA. P11 27-JUL-78 09: 00 MOD U. 1.2 - INITIALIZE PRINT 


.SBTTL MOD 1.3 - GET EXERCISE 


014154 TSTPAT, PAT :GET TEST PATTERN & 


STSTPA *CALL_MOO 1. 3.1 P ah TEST PATTERN 
015062 MoV TRKSEQ, SEQUEN ;GET TRACK SEQ & 


015056 OTDITK, OO ;GET yet al DIA wae 
015060 INDITK, ID *GET INSIDE DIA 

STKSEQ +CALL MOD 1.3.2 SET TRACK SEQUENCE 
F A FIRST PASS 
HE 
F 
Ss 


010310 1FB13: TST FIRST ; | 
THC13 T 
OOOO4O 002164 IFC13: #40, SHREG ;| 
N - SELECTE 


000040 002164 #40, SHREG LEAR SELECTED - CLR STAT TABLE 
015064 THC13: CLRSTA +CALL MOD 1.3.3 - CLEAR STATISTICAL TABLES 


END13: RTS 
MOD 1.3 


CLEAR STATISTICAL TABLES 
D THEN 
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CZRXDA. P11 27-JUL-78 09: 00 MOD 1. 3.1 - SET DATA PATTERN 
ms 24 .SBTTL MOD 1.3.1 - SET DATA PATTERN 
md + PAT ® DATA PATTERN 
4601 ; 0 NO PATTERN SPECIFIED (FORCE RANDOM DATA) 
4602 ; 1 ZEROS 
4603 ; 2 Ss 
4604 ; 3 FLOATING ZERO 
4605 ; 4 F ING 
4606 ; 5 ALTERNATING BITS 
4607 ; 6 ALTERNATING PAIRS OF BITS 
4608 ; ? RANDOM 
4609 NOTE: DATA PATTERNS WILL BE MODIFIED SO BYTE #0 WILL CONTAIN TRACK ADDRESS 
4610 ; AND BYTE #1 THE SECTOR ADDRESS IN WHICH THE DATA IS WRITTEN 
mf | ; THE LAST TWO BYTES CONTAIN THE CHECK SUM NUMBERS. 
4613 013602 042737 ates 013666 STSTPA: BIC #377, @8BRONPT  ; CLEAR BRANCH OFFSET 
4614 013610 005037 014150 CLR SUM +SET UP FOR ACCUMULATION OF CHECK SUM 
4615 013614 005737 014154 TST PAT + 1F NO PATTERN SPECIFIED FORCE PATTERN 7 
4616 013620 001003 BNE 1$ 
4617 013622 012737 000007 014154 Mov #7,PAT 
4618 013630 013704 014154 15: MoV PAT, RY +GET PATTERN BITS 
4619 0136348 005304 DEC R4 + ADJUST FOR CORRECT OFFSET 
4620 013636 006304 ASL RY 
4621 013640 150437 013666 81SB R4, @RBRONPT + INSERT OFFSET 
4622 013644 012704 035564 Mov #DATPAT+2, RY ;SET UP ADORESS OF FIRST BYTE 
4623 013650 013705 002270 MOV WOCNT. RS + SETUP WORD COUNT 
4624 013654 006305 ASL RS +DOUBLE WORD COUNT FOR ADR 
4625 013656 062705 035562 ROO #OATPAT.RS ADD DATA PATTERN ADR 
4626 013662 162705 000004 SUB #4, R5 ADJ. FOR CHECKSUM 
4627 013666 000777 BRONPT: BR , BRANCH BY OFFSET SELECTED 
4628 013670 000137 013724 JMP DATARO +000 DATA BYTE 
4629 013678 000137 013742 JP DATAI ; 377 OATA BYTE 
4630 013700 000137 013752 JMP FLOATO +FLOAT A O THROUGH ALL 1'S 
4631 0 000137 014020 JMP FLOAT1 +FLOAT A 1 THROUGH ALL O'S 
4632 013710 000137 014026 JMP PAT125 +125/052 DATA WORD 
4633 013714 000137 014052 JMP PAT333 + 3147063 DATA WORD 
meg 24 013720 000137 014062 JMP RANDAT +RANDOM DATA BYTE 
Mee LORD SOFTWARE BUFFER WITH ALL ZEROS (P = 1) 
4638 013724 005037 014152 DATAU: CLR DATBYT 
4639 013730 004737 014110 PG: JSR PC, LOAD +GO LOAD THE DATA BUFFER 
4640 013734 005705 TST RS 7 1F RS 
4641 013736 001463 BEQ END131 +NOT =0 . THEN 
=e 013740 000773 BR PG 
ae ; LOAD SOFTWARE BUFFER WITH ALL ONES (P = 2) 


4646 013742 112737 000377 014152 DATAI: MOVB #377, DATBYT 
4647 013750 000767 BR PG 
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4649 
650 


112737 
000 


004737 


27-JUL-78 09: 00 


006376 
000000 


014110 


014152 


014152 


000125 
014110 


014152 


000333 


002332 


002424 
014110 


28- JUL- ae “Ti 35 PAGE 3 


014152 


014152 


014152 


014152 


0 
- SET DATA PATTERN 


FLOAT A 0 THROUGH ONES IN SOFTWARE BUFFER (P = 3) 


FLOATO: MOVB #376. DATBYT +SET UP_A ONES FIELD 
XPG: SEC +SET THE C at TO ROTATE He a THE DAT 


4 A 
1$: MoV #0.R2 CLR as (CAN'T USE “CLR” AS IT CLEARS "C" BIT) 
BCC 2$ 7 BR aot “C" BIT IS CLEARED 
INC R2 SET. RZ IF NOT 
23: JSR PC, LOAD GO LOAD. THE DATA BUFFER 
TST RS 1F_RS 
ae END131 NOT ZERO THEN 
TST R2 + 1S R2 NONZERO 
BEQ 3$ 
SEC + YES. SET THE “C" BIT 
35: > ti 


FLOAT A 1 THROUGH ALL ZEROS IN SOFTWARE BUFFER (P = 
FLOAT1: CLR DATBYT 
BR XPG 


; ALTERNATING 1 & 0 IN ONE BYTE AND COMPLIMENT INTO THE NEXT (P = 5) 


PAT125: MOVB #125, DATBYT 
XXPG: JSR aS , LOAD 


TST R sIFR 

BEQ END131 +NOT ZERO THEN 
COMB DATBYT 

BR XXPG 


: ALTERNATING O AND 1'S PAIR IN ONE BYTE & COMPLIMENT INTO NEXT (P = 6) 
PAT333: MOVB #333. DATBYT 
BR XXPG 


[LORO SOFTWARE BUFFER WITH RANDOM DATA PATTERN (P = 0 OR 7) 
RANDAT: JSR PC, RANGEN ;GET RANDOM NUMBER 
nove BYT 


RANUM. DAT 
JSR PC, LOAD 
TST = RB IF R 
= END131 +NOT ZERO THEN 
END131: RTS PC F RETURN. ee ee ee eee 


SEQ 0059 
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28-JUL-78 13: 35 
MOD 1 


PAGE 30-1 
3.1 - SET OATA PATTERN 


Seecae 014150 LOAD. ADD 
MovVB 
CMP 
BEQ 
BR 
014150 1$: no 
014150 COM 
014150 nOovVB 
CLR 
ENDLD: RTS 
SUM: 0 
DATBYT: O 
PAT: 0 
-M00 1.3.1 ----- 


DATBYT, SUN 
odd (R4)+ 


1S 

ENDLD 
SUM, (R4)+ 
SUM, (RY) 
R 


; ACCUMULATE THE PATTERN CHECK SUM 
; THE DATA BUFFE 
HAVE 124 a BEEN GENERATED 
R N "ro PATTERN GENERATOR 
NTO TABLE 
SUM 
PUT COMP CHECK SUM INTO TABLE 


;CLEAR TEMP #5 - FLAG DONE MODULE 
+ RETURN 
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CZ2RXDA. P11 27-JUL-78 09: 00 MOD 1. 3.1 - SET DATA PATTERN SEQ 0061 
4717 
tS .SBTTL MOD 1.3.2 - SET TRACK SEQUENCE 
mk og + SEQ*a SEQUENCE 
4722 ; 0 SEQUENCE ade tat (DEFAULT TO SEQ 7) 
4723 i 1 INCREMENT FR TO | 
4724 ; 2 DECREMENT FROM 1D TO OD 
4725 ; 3 DO PREV! 2 SEQUENCE 
4726 ; 4 OUNCE BETWEEN 10 AND OD 
4727 ; 5 DE CRE BOUNCE 
4728 ; 6 STROBE BETWEEN OD AND DECREMENTING ID 
ms 24 ; ? RANDOM TRACK SELECTION 
4731 014156 005037 015042 STKSEQ: CLR TKTBPT ;CLEAR TRK TBL PTR 
4732 014162 005037 015050 CLR PRESTK CLEAR PRESENT TRK 
4733 014166 005037 015046 CLR TARGET +CLEAR TARGET TRK 
4734 014172 112737 000177 015050 MOVB #177, PRESTK + INIT PRESENT TRK TO HANDLE TRK #0 
4735 014200 113737 015056 015046 Move OD, TARGET + INIT OO AS TARGET TRACK 
4736 015054 CLR XI ra WORDING 10 AND OD LOCATIONS 
4737 014212 113737 015060 015054 MOvB 10, X10 > SAVE INSIDE DIA IN TEMP INSIDE DIA 
4738 014% 005037 015052 CLR x0D *CLEAR TEMP OUTSIDE DIA 
4739 014224 113737 015056 015052 MOVB 00, X0D + SAVE OUTSIDE DIA. IN TEMP OUTSIDE DIA. 
4740 014232 013737 015054 015044 MoV X10, TRKCNT see UP NUMBER OF TRACK MOVEMENTS 
4741 019280 143737 015052 015044 SUB XOD. TRKCNT 
4742 014246 005237 015044 INC TRKCNT ; INCREMENT @ OF TRACKS 
4743 014252 002005 BGE GTTK 1F @ OF TRACKS 1S NEGATIVE. THEN 
4744 019254 012737 100000 002232 MOV #100000. SYSERR SET SYSTEM ERROR 
4745 014262 000137 015040 JP ENOTKS sEXIT 
4746 014266 013737 002162 015062 GTTK: Mov TRKSEQ, SEQUEN =; GET TRACK SEQUENCE & 
4747 014278 142737 000377 014332 BICB #377. @ABRONTK {CLEAR OUT BRANCH OFFSET 
4748 014302 005737 015062 TST SE QUEN + 1F TRACK SEQUENCE 
4749 014306 001003 BNE 1$ +EQUALS ZERO, THEN 
4750 014310 012737 000007 015062 MoV #7, SEQUEN +FORCE SEQ &7-RANDON 
4751 014316 013704 015062 1$: MoV SE QUEN. R4 GET SEQUENCE BITS 
4752 014322 005304 DEC R4 +ADJUST FOR CORRECT OFFSET 
4753 014324 006304 ASL RY 
4754 014326 150437 014332 B1SB R4, @RBRONTK THIS BR INST. IS MODIFIED SELECTED TRACK SEQUENCE 
4755 014332 000777 BRONTK: BR . BRANCH TO SELECTED TRACK SEQUENCE 
4756 0149338 000137 014370 JMP SEQ1 ; 
4757 019380 000137 014424 JP SEQ2 ; 
4758 0149384 000137 014460 JMP SEQ3 ; 
4759 014360 000137 014476 JP SEQ4 +BOUNCE 1D TO OD 
4760 014354 000137 014544 JMP SEQ5 DECREASING BOUNCE 
4761 014360 000137 014626 JMP SEQ6 + STROBE 
| 014364 000137 014762 JnP SEQ7 + RANDOM 
me ; INCREMENT FROM OD TO 1D & RETURN TO OD 
4766 014370 123737 015054 015050 SEQi: CNPB X10. PRESTK + 1F PRESENT TRACK=1D 
4767 014376 001004 BNE 1 + THEN 
4768 014400 012737 177777 015046 MoV #-1, TARGET + TERMINATE TABLE 
4769 014406 O00405 BR END SEQ1 
4770 014410 113737 015052 015046 1%: MOvVB XOD. TARGET ELSE SET NEW TRACK-OUTSIDE DIA 
4771 014416 005237 015052 INC x00 + INCREMENT OUTSIDE DIA 
4772 014422 000565 2$: BR NEWTRK +END SEQ1 
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27-JUL-78 09: 00 MOD 1. 3. 


30-3 
- SET TRACK SEQUENCE 







;DECREMENT FROM 1D TO OD 


’ 





+ TERMINATE TABLE 
; SEQ2 


+ END 
+ SET NEXT TRACK=INSIDIA 


SID 
+DECREMENT INSIDE DIA 





DECREMENT TRACKS 





7 1F MODE 
+NOT EQUAL TO ZERO 
CHANGE MODE 





ELSE CHANGE MODE 


+D0 SEQ1 











EQUAL TO ZERO 
: THEN SET NEXT TRACK=OUTSIDE DIA 
oo MODE 





+ELSE SET NEXT TRACK=INSIDE DIA 


+ TERMINATE TABLE 





. 
’ 


TERMINATE TABLE 


DECREASING 1D AND INCREASING OD 


+ 1F INSIDE & OUTSIDE DIA 
NOT EQUAL 
+ THEN, IF MODE 


+ CHANGE MODE 

+ SET NEXT yt re Hy DIA 
+ INCREMENT OUTSIDE DIA 

END SEQ5 


; 


+ CHANGE MODE 
i SET NEXT yr ry Hy DIA 
+DECREMENT INSIDE DIA 
END SETS 
+ TERMINATE TABLE 


. 
’ 


5 
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CZRXDA.P11  27-JUL-78 09: 00 MOD 1. 3.2 - SET TRACK SEQUENCE SEQ 0063 
WH == fxn eeeeeeeesenrenresmnnesenennssseesecnseseenenseessnsssessneseses 
“825 ; STROBE BETWEEN OD AND DECREASING 1D 
4827 014626 123737 015054 015052 SEQ6: CMPB XID, XOD 
4828 01463" 001416 7 
4829 014636 123737 015050 015052 CHPB = PRESTK. X00 ;1F 0.0. JUST DONE 
4830 0146"% 001006 BNE ; THEN 
W831 O186%6 113737 015054 015046 MOVE XID, TARGET SET TO DO 1.0. 

4832 01465" 005337 015054 DEC =X ID ; DECREMENT {D. FOR NEXT 

4833 014660 000407 ge 28 

483% 014662 113737 015052 015046 3s: MOVB —-XOD. TARGET ELSE SET TO D0 0.0. 

4835 014670 000403 Be 2s 

4836 014672 012737 177777 015046 15: MOV #1, TARGET 

4837 014700 000436 2s: BR NEWTRK 

4839 ; RANDOM SEQUENCING OF TRACKS - THE 00/1D LIMITS SHOULD BE SET > THAN HALF THE TRACKS. 
484i 014702 000240 SEQ?: NOP 

4942 014708 004737 002332 JSR PC, RANGEN GET A RANDOM NUMBER 

4943 014710 042737 177600 002424 BIC  8177600,RANUM ;CLEAR ALL BUT LOW 7 BITS 

wo¥4 014716 123737 002424 015054 IDCOMP: CMPB = RANUM, XID ; 1F RANUM LARGER THAN ID ADORESS 
49S 014724 003401 BLE ODCONP ; THEN 

4846 014726 000765 BR SEG? BR TO GET ANOTHER RANDOM NUMBER 
W847 014730 123737 002424 015052 ODCOMP: CHPB — RANUN, XOD ;1F RANUM SMALLER THAN OD ADDRESS 
4O¥8 014736 002001 BGE  § PRESCK ; THEN 

“a9 018740 000760 BR SEQ7 BR TO GET ANOTHER RANDOM NUMBER 
4850 014742 123737 002424 015050 PRESCK: CMP8 — RANUM, PRESTK F _RANUM EQUALS PRESENT TRACK 
4951 014750 001754 8EQ — SEQ? SGET ANOTHER. RANDOM NUMBER 

4952 014752 013737 002424 015046 MOV § RANUM, TARGET =; RANUM OK PUT IT IN TARGET TRACK 
4853 014760 005337 015044 DEC  —- TRKCNT 

4854 014764 001003 BNE 1$ 

4855 014766 012737 177777 015046 MOV = 1, TARGET ; TERMINATE TABLE 

“86 014778 000800 15 BR NEWTRK 

4858 014776 012702 035327 NEWTRK: MOV = #TRKTBL-1.R2 

4869 015002 005237 015042 INC —s- TKTBPT 

4860 015006 063702 015042 AOD =: TKTBPT. R2 

4861 016012 113712 015046 MOVE ‘TARGET. (R2) 

4862 015016 005737 015046 TST TARGET 

4863 016022 100%06 en! ENOTKS 

4864 016028 000240 NOP 

4866 016026 113737 015046 015050 MOVE TARGET. PRESTK 

4866 015038 000137 014332 JMP = BRONTK 

4867 016000 000207 ENDTKS: RTS PC 

“869 0160¥2 900000 TKTBPT: O ; TRACK TABLE POINTER 

4870 016005 TRKCNT: 0 

4871 0150%6 000000 TARGET: 0 

4872 016050 000000 PRESTK: 0 

4873 016052 000000 x00: 0 

4874 016054 000000 x10: 0 

4875 016056 900000 00: 0 

4876 015060 000000 10: 0 

4877 016062 000000 SEQUEN: 0 

4878 MOD 1.32 ----- END MODULE ----------------------------------------- 
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CZRXDA. P11 27-JUL-78 09: 00 MOD 1.3.2 - SET TRACK SEQUENCE 


MOD 1.3.3 - CLEAR STATISTICAL TABLES 


CLRSTA: 


;SET UP BEGINNING ADDRESS 
;SET UP TABLE LENGTH 
BDAI 33: LR i CLEAR ADDRESSED LOCATION 


;00 UNTIL LAST ADDRESS DONE 


END133: 
*MOD 1. x 
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CZRXDA.P11 —-27-JUL-78 09: 00 MOD 1.3.3 - CLEAR STATISTICAL TABLES 
4896 
4897 
1838 .SBTTL MOD 2.0 - SCHEDULE SYSTEM EXERCISE 
4900 
4901 015110 0002¥0 SCSYEX: NOP ; 
4902 015112 005737 010242 1FK20: TST INITL 7 1F INITIALIZE 
4903 015116 001417 BEQ ~=—s« ELK20 ; THEN 
4908 015120 012737 000001 020454 nOV #1, INITTK ;SET INITIALIZE TRK FLG 
4905 015126 005037 015646 CLR = EXHCP ;CLEAR EX HALF COMPL 
4906 015132 005037 0 CLR ss BTHORV ;CLEAR BOTH ORV L 
4907 015136 005037 015652 CLR — BDVSCD ;CLEAR BOTH DRV SEC DONE FLG 
4908 015182 005037 015660 CLR  —- OVONCK CLEAR ORV DONE 
4909 015186 005037 015662 CLR v FF 
4910 015152 005037 015670 CLR ss ERTSAV ;CLEAR ERR TYP SAVE 
4911 015166 005037 015664 ELK20: CLR  — SFERR ;CLEAR SFT ERR 
4912 015162 033737 015644 002212 IFA20: BIT | SUTPTR. SUT ;1F SYSTEM UNDER TEST BIT 
4913 01 001406 BQ ~=—s« ELA20 1S SET 
491% 015172 008737 002532 CALL CVSTU /CALL NOD UA 2 = CONVERT SUTPTR-->UUT 
4915 015176 013737 002600 002214 MOV. «UNI TST, WUT ; SET UNIT UNDER 
4916 015208 BR BR TO BEGIN ‘B’ 
4917 015206 006337 015644 ELA20: ASL § SUTPTR ;SHIFT SUT POINTER TO TEST 
4918 015212 022737 015644 OUC20: CMP 820, SUTPTR 300 UNTIL SUT POINTER 
4919 015220 BGT 1FA20 EQUALS 10000 BIN 
4920 015222 000137 015622 JMP ss: EDC20 ;8R TO END DO ‘C’ 
¥921 015226 80820: BGNSEG ;BEGIN SEGMENT FOR ERROR LOOPS 
4922 015230 013737 00215¢ 015642 nov. TSTN. EXN ;GET TEST @ = EXERCISE & 
4923 015672 CALL GETTST ; CALL 1 - GET A TEST 
4924 016202 013737 016364 015640 nov.  TSTMD. TST ; SAVE TEST WORD 
4925 015250 032737 OOO400 015640 1F820: BIT #8400, TST ;1F NEXT UNIT BIT 
4926 015256 001514 BEQ —s- EL B20 71S SET T 
4927 015210 008737 026534 CALL  STOVON ; CALL 2.6 -SET DRIVES DONE 
4928 016248 032737 OO%000 015640 IFC20: BIT | 84000, TST 71F AOV TRK BIT 
4929 015272 001001 BNE 1€ 120 1S NOT SET THEN 
4930 015278 11 BR &£1C20 ;BR TO ENO IF ‘C* 
4931 015276 015650 090003 IF120: CMP § BTHORV, 83 ;1F BOTH ORIVES DONE 
4932 015308 001065 BNE 1FL20 ; THEN 
4933 016306 013737 015650 015662 MOV BTHORV.ORVDN SET BOTH ORVS DONE TEST 
493% 016318 005037 015650 CLR = BTHORV /CLEAR BOTH DRIVES DONE FLAG & THEN 
8935 016320 013737 002214 015666 £1(20: MOV — UUT. RESTK ;SET UUT TO RESET 
4936 016326 052737 002000 015666 BIS 2000 RESTK «SET INC TRK ONTO RESET TRK 
8937 016338 032737 001000 015640 IFF20: BIT 81000, TST 71 DEL DATA CK BIT 
0938 S16m2 001001 8NE «ELF 20 71S SET THEN 
4939 016398 000%10 BR E1F 20 3 8R TO 1F 'F* 
W940 01636 012737 002000 015656 ELF20: MOV § §2000.ADVTRK . ;SET AOV TRK = INCR TRK 
8541 015646 1FG20: TST  EXHCP 7 IF EXERCISE 1/2 COMPLETE 
0942 1% BEQ 1FH20 71S SET. THEN 
oon 015646 CLR = EXHCP ;CLEAR EX HALF COMPLETE 
wove O16 366 063737 01 002210 E1F20: 61S  ORVON. 3SET THIS DRV DONE 
4h G06357 Oisens ASL —- SUTPTR i SETUP PTR TO CK NXT UNIT 
8946 016400 013737 002214 015666 MOV ‘WUT. RESTK GET UUT 
8947 016%06 052737 002000 015666 BIS 82000, RESTK = SET_INCTRK ON RESET TRK FLAG 
8948 016418 005037 015650 CLR = BTHORV ;CLEAR BOTH ORV ON FLAG 
999 016920 000506 BR END20 768 TO END 
9950 016422 005737 002224 1FH20: TST  DELOAT ;1F DEL DATA MODE 
4951 015426 001403 BEQ ~=—s« ELH20 1S SET ‘ 


“ 
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CZRXDA. P11 27-JUL-78 09: 00 MOD 2.0 - SCHEDULE SYSTEM EXERCISE 
4952 015430 005037 002224 CLR DELDAT CLEAR DEL DATA MODE 
493 015438 000403 BR E1H20 BR TO END IF ‘H’ 
495% 015436 012737 000010 002224 ELH20: Nov #10, DELOAT +SET DEC DATA MODE 
4955 015499 005037 015662 EIH20: CLR OR VON + CLEAR ORV DONE 
“ 015950 012737 000001 015646 MOV #1, EXHCP +SET EX 172 COMPLETE 
4957 015456 O00444 BR E1820 BR TO END IF 'B’ 
4958 015960 032737 OO00003 015652 IFL20: BIT #3. BOVSCD iF 7 DRY SEC DONE 
4959 015466 001405 BEQ ELL20 iT 
4960 015970 005037 015652 CLR BOVSCD CLEAR ORV SEC DONE FLAGS 
4961 015978 012737 OO4000 015656 MoV #4000, ROVTRK ;ALLOW TRACK ADVANCE 
4962 015502 004737 016526 ELL20: CALL GTORV *CALL MOD 2.2 - GET A DRIVE 
4963 015506 000430 BR E1820 BR TO END IF ‘B’ 
496% 015510 053737 015656 015654 £1820: BIS ROVTRK. INCTRK ;SET ADV TRK (CIF SET BY PREV OP) 
4965 015516 013737 015640 017520 MOV TST. ORVTST +PASS DRIVE TEST 
4966 015528 004737 016714 CALL XDVTST *CALL MOD 2.3. - EXECUTE DRIVE TEST 
4967 015530 000240 NOP 
4968 015532 013737 017520 021634 MoV DRVTST, TSTEV PASS ORIVE TEST FOR EVAL 
4969 015540 009737 021554 CALL EVTSTR /CALL MOD 2.4 - EVAL. TEST RESULTS 
4970 015544 013701 015640 MoV TST.R1 GET ORV TST 
4971 015660 082701 171777 BIC #171777.R1 + SAVE TRK BITS 
4972 01566" 010137 015654 MOV Ri. INCTRK +SET TRK BITS 
4973 015560 005037 015656 CLR AOVTRK > CLEAR AOV TRK FLAG 
4974 01556" 005037 010242 CLR INITL a INITIALIZE FLAG 
4975 016570 00024 E1820: NOP 
4976 015572 005737 002234 1FM20: TST ERRTYP ;1F ERR TYPE 
4977 016576 001402 BEQ E1N20 =0 
4978 015600 004737 025106 CALL OTERTP CALL MOD 2.5 - O/P ERR TYPE 
4979 01660" 000240 EIMZ0: NOP 
4980 015606 005737 002232 0UB20: TST SYSERR ;D0 UNLESS SYSTEM ERROR 
4981 015612 001011 BNE END20 +NOT=0 THEN 
4962 015614 ENOSEG ENO SEGMENT FOR ERROR LOOPS 
4983 016616 000137 015226 JP 80820 + BR 
4984 016622 012737 000001 015644 EDC20: Mov #1, SUTPTR SET SYS a TEST PTR 
4985 0165630 052737 000001 015664 BIS #1, SFERR SET SFT E 
ts 016636 000207 END20: RTS PC + ENO 
4968 01 000000 TST: 0 + TEST FIR  emeadi 
4989 015642 000000 EXN: 0 EXERCISE & 
4990 0156%% 000001 SUTPTR: 1 + SYSTEM UNDER TEST POINTER 
4991 0166%6 000000 EXHCP: 0 EXERCISE HALF COMPLETE (EX®#7) DEL DATA PASS 
4992 016660 000000 BTHORV: 0 BOTH CRIVES DONE FL 
4993 016662 000000 BOVSCD: 0 BOTH ORIVE SECTORS DONE FLAG 
499% 016664 000000 INCTRK: O + INCREMENT TRACK FL 
4995 016666 000000 AOVTRK: O MOVANCE TRACK FLAG 
499% 016660 000000 OVONCK: 0 ORV DONE CK FL 
4997 016662 000000 DRVON: 0 DRIVE DONE 
4998 016664 000000 SFERR: 0 + SOFTWARE ERR ° 
4999 015666 000000 RESTK: O +RESET TRK FLAG 
6000 016670 000000 ERTSAV: 0 ERR TYP SAVE REG 
6001 ;MOD 2.0 ----- EMD MODULE eoceconececcccccccencccencesessconceseecces 


HAROWARE TESTS 


5017 
5018 
5019 
5020 
5021 
5022 
5023 
5024 
5025 
5026 
5027 
5028 
5029 
5030 
5031 
5032 
5033 
5034 
5035 
5036 
5037 
5038 
5039 
5040 
5041 
5042 
5043 
5044 
5045 
50%6 
50%7 
5058 
5049 
5050 
5051 
5052 
5053 
5054 
5056 
5056 
5057 
5058 
5059 
5060 


: 
: 


SCCSCSECSESECESS’ESCESCESE 

ee et ee ee eh Ge Ot OD eh on Oh SH OO ed 

SESENPSRRBVSKB 
& Ly =) 


MACY 11 30A (1052) 
78 09: 00 


015642 
016372 


016362 
010242 


016360 


002242 
000004 
016360 
000002 
016366 
002300 
016366 
000002 
016366 
015660 
040000 
002276 





28- JUL-78 
MOD 2 


002164 


016360 


016360 


016364 


015660 


016364 
016364 
016360 
016360 


016360 


016360 
002242 


SBTTL MOD 2.1 - GET A TEST 


1F 021: 


ELO21: 
1FMN21: 


1FN21: 


ELN21: 
1F G21: 


ELG21: 


1FH21: 


PS 35 PAGE 32 


~ 
ao 


aa fial= ba = 
BM mon 
_ 
<4 


iF RETRY ON ERROR 
1S NOT + THEN 


; ati TST PTR 
+EQUALS ZERO 
;ADV. TST PTR | CMO 
*CLEAR TABLE PAIR COUNT 
+BR TO END IF 'F' 
Pad a Shy DONE IS 
+SET T 
ZF TABLE PAIR CNT=1, 
+ THE 


VANCE ONE TEST CMO 


mrmanosh 
“4 
é 
x "S 
7 


Bunn——-—m 
i 
4 
So 
wT 
< 
3 


at. peediinedlins 7 


CK 
TO END IF '‘F' 


ADV OR INCR TRK 
ET. THEN 
: CMD SEQ’ 


-— 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


+BACK UP THO TEST CMOS 
+BR TO ENO IF 'F' 


; INCREMENT TABLE PAIR COUNT 
+ADVANCE ONE CHD 

+BR END IF ‘F' 

+ 1F NO DATA RETRY IS 
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WR 


eERE 


o 


28- JUL-78 
Ho 


016370 
002242 
016360 
002242 
016370 


016360 


1F 121: 


IF J21: 


TSTPTR. , 


EXADR: 
TSTWO 


TBPRCT: | 
TSAVCT: | 


EXADTB: . 


13:35 PAGE 32-1 
D 2.1 - GET A TEST 


1F 121 
far RETRY 


ne 
Sid | 


+SET. OR 
7 1F NO CRC RETRY IS 
; THEN 


‘8 uP 3 _CNOS 
;CLEAR WRITE RETRY 
+SET_ TEST ADV COUNT=3 
+BR TO ENO IF ‘I’ 

; IF READ RETRY IS 

ET THEN 


;DECREMENT TEST ADV COUNT 
;ROV TEST POINTER 1 CMO 
7 1F TEST ADV COUNTER 


EAR R 
SET TABLE PAIR COUNT 
;BR TO ENO "¥. 
CLEAR TABLE PAIR CNT 
GET TEST POINTER 
CAL. CUR. TEST OF THIS EXERCISE 
;PASS UP TEST WORD 
+ 1F CMO LOWER BYTE 


+EQUALS -1, THEN 
+RESET TEST PTR 


RETURN 


’ 
; 
; 
; 
’ 


+ TEST POINTER 

+ CURRENT EXERCISE TABLE BASE ADDRESS 
+ TEST WORD TO PASS UP 

;TABLE PAIR COUNT 

+ TEST ADVANCE COUNTER 


EXERCISE ADDRESS TABLE 


HARDWARE TESTS MACY11 Ye 


CZRXDA. P11 27-JUL-78 09: 

5111 

$112 016412 177777 
5113 01641% 000000 
511% 016416 044002 
5115 016420 000777 
5116 016422 177777 
5117 016424 000000 
5118 016426 000002 
5119 016430 000003 
51 016432 154001 
5121 016438 000777 
5122 016436 177777 
5123 016440 000000 
5124 016442 000002 
5125 016444 000003 
5126 016446 174001 
5127 016450 000777 
5128 016452 177777 
5129 016454 3 
5130 016456 064001 
5131 016460 000777 
5132 016462 177777 
5133 016464 3 
5134 016466 044001 
5135 016470 777 
5136 016472 177777 
5137 016474 000000 
5138 016476 000002 
5139 016500 000003 
5140 016602 170001 
5141 016504 77? 
5142 016506 177777 
5143 016510 000000 
5144 016512 000002 
5145 01651% 000003 
5146 016516 172001 
5147 016520 3 
5148 016522 064001 
5149 016524 001777 
5150 

5151 

5152 

5153 

5154 

5155 

5156 

5157 

5158 

5159 

5160 

5161 

5162 

5163 


28- JUL-78 if 35 PAGE 33 
MOD 2.1 


EX3: 


EX4: 


EXs: 


EX6: 


EXx?: 


ee | 


+MOD 2.1 


- GET A TEST 

-WORD -1 

.WORD O 

-WORD 44002 

-WORD 777 

-WORD -1 

.WORD O 

-WORD 2 

-WORD 3 

-WORD 154001 

-WORD 777 

.WORD -1 

.WORD O 

-WORD 2 

.WORD 3 

-WORD 174001 

-WORD 777 

.WORD -1 

-WORD 3 

.WORD 64001 

.WORD 777 

.WORD -1 

-WORD 3 

-WORD 44001 

.WORD 777 

-WORD -1 

.WORD QO 

WORD 2 

.WORD 3 

.WORD 170001 

-WORD 4777 

.WORD -1 

-WORD QO 

.WORD 2 

.WORD 3 

.WORD 172001 

. WORD 

.WORD 64001 

-WORD 1777 

BITs NUMON | C 
15 4CMD 
14 DOCK 
13 DATACK 
12 RAW 
11 ADVTRK 
10 INCTK 
09 CHK 
08 NXTUNT 


. 
’ 


;DCK, ADVTRK. DATACK. 
= NXTUNT, 


:DCK. ADVTRK. 
XTUNT, 


’ 
’ 
; 
’ 
’ 


ee ee 


4 COMMAND SEQUENCE 
DONE CHECK 
DO DATA CHECK 


: “CMD, DCK, ADVTK, DACK, RAH/ 
NXTUNT, 


: 4CMD, DCK, DATACK. 
“ADVTRK, NXTUNT. 


“ 4CMD, DCK, DACK, / RAM INCTK/ 
:D 


CK, DATACK, ADVTRK, 
;DDCHK, NXTUNT, 


“a, BERS SA 


SX SEARS BES BAN 


/ 
fe 


FILL BUFFER 
WRITE SECTOR 
READ SECTOR 
ahh BUFFER 
FILL BUFFER 
ue 

hi BUFFER 
READ SECTOR 
hi BUFFER 
READ SECTOR 
ah BUFFER 
FILL BUFFER 
WRITE SECTOR 
READ SECTOR 
hh BUFFER 


FILL BUFFER 
WRITE SECTOR 


READ AFTER WRITE FLAG 


ADVANCE TRACK MODE 
Liga fos TRACK MODE 


1F DONE LAST UNIT 


DEL. 


ATA CHECK 
GET NEXT UNIT. 
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5166 
5167 
5168 .SBTTL MOD 2.2 - GET A DRIVE 
5169 J rn nn rn nnn nn nn enn nnn nnn enn ene e cnn nnn= 
5170 
5171 016526 000240 GTORV: NOP ; 
6172 016530 032737 000001 002214 IFAZ2: BIT #1, UUT + 1F UUT=ORIVE O 
5173 016536 001024 BNE 1F022 ; THEN 
5174 016540 032737 000002 002214 %IFB22: BIT #2, WUT + 1F UNIT/SIDE UNDER TEST (UUT) 
5175 016546 001404 BEQ EL822 >EQUALS 1 
5176 016550 012737 000010 016712 MoV #10, TSTSUT ;SET TEST OF SYS. UNDER TEST UNIT/SIDE=1 
5177 016556 000403 BR 1FC22 ;BR TO IF ‘C' 
5178 016560 012737 000002 016712 ELB22: MoV #2, TSTSUT ;SET TEST OF SYS. UNDER TEST UNIT/SIDE=0 
5179 016566 033737 016712 002212 IFC22: BIT TSTSUT, SUT > 1F ORIVE 1 SELECTED FOR TEST 
5180 016574 001404 BEQ ELC22 ; THEN 
5181 016576 052737 000001 002214 BIS #1, UUT ;SET UNIT ware TEST TO ORV #1 
5182 01660% 000430 BR EIE22 ;BR TO END | 
5183 016606 000417 ELC22: BR THE 22 ;BR TO THEN fee 
518% 016610 032737 000002 002214 %IFO22: BIT #2. WUT ; IF UNIT/SIDE UNDER TEST (UUT) 
5185 016616 001404 BEQ EL022 ;EQUALS 1 
5186 016620 012737 OO0004 016712 MoV #4, TSTSUT ;SET TEST OF SYS. UNDER TEST UNIT/SIDE 1 
5187 016626 000403 BR 1FE22 ;BR TO IF ‘E' 
5188 016630 012737 000001 016712 ELD22: MoV #1, TSTSUT ;SET TEST OF SYS. UNDER TEST UNIT/SIDE 9 
5189 016636 033737 016712 002212 IFE22: BIT TSTSUT, SUT ;1F ORIVE O SELECTED FOR TEST 
5190 016644 001404 BEQ ELE22 ; THEN 
5191 016646 042737 000001 002214 THE22: BIC #1,UUT >SET UNIT — TEST TO ORV8O 
5192 016654 000404 Be E1E22 ;BR TO END | 
5193 016656 052737 000001 002214 ELE22: BIS #1, UUT + SET UNIT UNDER TEST TO ORV@1 
519% 016664 000240 NOP 
5195 016666 013704 002214 E1E22: MoV UUT, RY GET UNIT UNDER TEST 
5196 016672 006304 ASL Ry ; DOUBLE IT 
5197 016674 010437 002220 Mov R4, UUTOFF SET UUT OFFSET 
5198 016700 062704 007356 ADD #UTOO, RY +;GET UUT UNIT & FOR PRINT 
5199 016704 011437 006620 Mov (R4), UNIT >;SET UNIT=PRINT UNIT & 
ay 016710 000207 END22: RTS PC ; RETURN 
$202 016712 000000 TSTSUT: 0 


5203 ;MOD 2.2 ----- END MODULE ------------------------------------------- 
204 
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_ SBTTL MOD 2.3 - EXECUTE DRIVE TEST 
016714 013737 017522 XDVTST: 
013702 002220 
002214 


002216 
002216 


UNDER TEST IS 
IT #1 UNIBUS ADR 
ENO IF ‘A’ 

UNIT 40 UNIBUS ADR 


RESET TRK 
SET N 


Be Be Be Be Be Be He Be Be Be Se Be Be Be 


LE OFFSE 
ADD TRK TABLE AOR 
+RESET TO MIN TRK 
CLEAR SEC DONE FLAG 
CLEAR RESET TRK FLAG 
+1F_ INITIALIZE IS 
1823 + SET, THEN 
017472 +GET START OF = TRK &SEC TBL 
000004 #4,R4 +SET TBL LENGTH 
+ CLEAR TABLES 
*+DECR TBL LENTGH 
+00 UNTIL LENGHT=0 
000004 #4,R4 +SET TBL LENGTH 
002166 4 OTDITK, (R5)+ + SET STARTING TRACKS 
RY ;DECREMENT TBL LENGTH 
2$ +00 UNTIL LENGTH=0 
017502 E aCTRK, R1 GET BEGIN AOR DRIVE CURRENT TRK. 
CAL. LOCATOR 


/R1 ; DRIVE CUR. TRK. 
017514 R1, CNTKLC + SAVE CUR. TRK. 
020442 @CNTKLC.CURTRK ; 


ESESERSER 


ORV. 
000416 ost DRIVE CUR. TRK. 
017472 + + ial + BEGIN AOR DRIVE CUR. a. 
017512 R1. CNSCLC 
000374 020106 @CNSCLC. CURSEC 
1NLOOP 
BNCOMPLETE IFC23 
BR E1J23 
RETRY 
1F G23 
1 lat 
#1, RETRY 
1$ 
2$ ; BR TO 2$ 
000010 4 #8 1TO3. SHREG ; IF RECAL SWITCH 
THO23 ; T SET 
017516 f ' voy FUNCTION FLAG 


5232 
5233 
5234 
5235 
5236 
5237 
5238 
5239 
5240 
5241 
5242 
5243 
5244 
5245 
5246 
5247 
5248 
5249 
5250 
5251 
5252 
5253 
5254 
5255 
5256 
5257 
5268 
5259 

260 


017166 
017172 


















5262 
5263 
5265 


SSSSERRE 


BSSSS55 


PEELELRPEPEPEREE ETL ELA 


CZRXDA. P11 


017174 
017202 
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020610 


017524 
021252 


017516 


020440 
000172 
017516 
020106 


000134 
017520 


020610 
017524 


THO23: 


E1023: 
IF G23: 


(1FE23: 
FF 23: 


ELE23: 
E1E23: 


1FH23: 


E1J23: 


ALL 
a! 


#40000, DVTST 
OVFN 


CURTRK, @CNTKLC 
#1, SEEK 

EI1E23 

SEEK 

@CNSCLC. CURSEC 
CURSEC, @CNSCLC 
#6. ORVTST 
E1J23 
#OATPAT.R1 
@CNTKLC, (R1)+ 
@CNSCLC, (R1) 


OVTST 
ORVTST,. OVTST 
GTOVF 


eane” TRACK 








OR T 

at DRIVE TST 

+1S NOT ‘FILL BUFF’ 
;NOT “a a - THEN 


-BR TO | 
+! ~~ DONE 


1S = 
iF INCR TRK FLAGS 
ARE SET, bay 
RSS TRK FLAGS 
ALL MOD 2 + 2 foatn TRACK 


; SEEK 

PASS CURRENT ote 

+CALL MOD 2 3.1 GET A SECTOR 
AVE re ge CURRENT SECTOR 


UFF' . THEN 

ATTERN ADR 
N DATA BUF BYTE #0 
a BUF BYTE#1 


BAUMM——-—W 
r-mmman 


Be Be Be Be Be Be Se Be 


+ SAVE SECTOR ADDR IN GLOBAL 
+ RETURN 
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5308 
8309 eee mmmwwewwwnswewee ewes cee ewww ece sce e sce e wesw ences nnncenecenenn= 
5310 017472 000000 CSEC WOR 0 ; CURRENT ORV SECTOR TABLE 
5311 017474 000000 ORD O 
5312 017476 000000 WORD QO 
5313 017500 000000 ORD 0 

4% 017502 000000 CTRK WORD 0 + CURRENT ORV TRK TABLE 
5315 017508 000000 ORD O 

6 017506 000000 WORD QO 
pate 017510 000000 0 
5319 017512 000000 CNSCLC: .WORD 0 + CURRENT SECTOR LOCATOR 
5320 017514% 000000 CNTKLC: .WORD OQ + CURRENT TRACK LOCATOR 
5321 017516 000000 K: .WORD O + SEEK FLAG 
5322 017520 000000 ORVTST: .WORD 0 DRIVE TEST 
5323 017522 000000 CT: WORD 0 + WORD COUNT 

017524 000000 WOOT: WORD QO +FUNCTION WORD TO SEND OUT 
5325 017526 000000 ORVFN: .W 0 DRIVE FUNCTION WORD 
+MOD 2. 3 ----- TD RIGUAE occ erence cncwneensessenercassessnasesassnce 
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CZRXDA. P11 27-JUL-78 09: 00 MOD 2.3.1 - GET A SECTOR SEQ 0074 
5329 .SBTTL MOD 2.3.1 - GET A SECTOR 
By Si pels 2 Se aap EN Y= Se 
5332 017530 005037 020102 GETSEC: CLR UTSCON +CLEAR UUT SECTOR DONE 
5333 017534 013705 002214 MoV UUT. RS GET UNIT UNDER TST 
5334 017540 006305 ASL RS + DOUBLE FOR WRD ADR 
017542 005737 010242 1F 1231: TST INITL + 1F_ INITIALIZE IS 

5336 017546 001406 BEQ E11231 + SET. THEN 
5337 017550 012701 020062 nov @SSEC, R1 +GET STARTING SEC ADR 
5338 017554 3905021 CLR (R1)+ + CLEAR UNTOO SSEC 
5339 017556 005021 CLR (R1)+ +CLEAR UNTO! SSEC 
5340 017560 005021 CLR (R1)+ +CLEAR UNT1O SSEC 
541 017562 005011 CLR (R1) + CLEAR _UNTI1 SSEC 
542 0175648 012701 020062 Eli231: MOV RSSEC, R1 GET START SECTOR BASE ADR 
5343 017570 060501 ADD R5.R1 ;F IND ROR UUT START SECTOR (TEMP 1) 
54 017572 011102 MoV (R1),RZ + SAVE UUT STARTING SECTOR (TEMP 2) 
5345 017578 012703 020072 MoV @NSEC, R3 +GET NEXT SECTOR BASE ADR 

6 017600 060503 ADD R5.R3 +F IND AOR UUT NEXT SECTOR Voy 3) 
5347 017602 011304 Mov (R3),R4 + SAVE _UUT NEXT SECT TEMP 4 
548 017608 020237 002172 1FAZ31: CMP RZ, MINSEC 7 1F STARTING SECTOR < MIN. SECTOR 
549 017610 103422 BLO ELAZ31 ; THEN 
5350 017612 010437 020106 MOV R4, CURSEC SET CURRENT SECTOR=UUT NEXT SECTOR 
5351 017616 023737 020056 020104 IFG231: CMP SCPSCT. INTLV + 1F SECTOR PASS CNT< INTERLV 
5352 017624 103053 BHIS THF 231 + THEN BR TO THEN ‘F'. ELSE 
5353 017626 005737 020060 1FH231: TST STSCFG 7 1F START SEC FLAG 
5354 017632 001405 BEQ ELH231 1S SET. THEN 
5355 017634 005037 020060 CLR STSCFG + CLEAR FLAG 
5356 017640 010204 MOV R2,R4 +SET ORV ye SEC= DRV START SEC 
5357 017642 010213 Mov RZ, (R3) + SAVE ORV NXT SEC 
5358 017644 000426 BR 1FC231 +BR TO IF 
5359 017646 063704 020104 ELH231: ADD INTLV, RY UNSEC#NSEC# INTERLY 
5360 017652 010413 MOV R4, (R3) + SAVE NEXT SEC 
5361 017654 000422 BR 1F C231 BR TO IF ‘C' 
5362 017656 013737 002172 020106 ELAZ31: MOV MINSEC.CURSEC ;SET CURRENT SECTOR = MIN. SECTOR 
5363 017664 013711 002172 MoV MINSEC, (R1) +SET UUT START SECTOR = MIN. SECTOR 
5364 017670 013702 002172 MoV MINSEC, R2 + SET RZ=MINSEC 
5365 017674 005037 020056 CLR SCPSCT 4 a SECTOR PASS COUNT 
5366 017700 023737 002172 002174 IFB231: CMP MINSEC.MAXSEC ; IF MAX. SECTOR NOT=MIN. SECTOR 
5367 017706 001443 BEQ ELB231 ‘THEN 
5368 017710 010205 THB231: MOV R2,R5 GET UUT STARTING SECTOR 
5369 017712 063705 020104 AOD INTLV, RS + AOD yobs a tant at 
5370 017716 010513 MOV RS. (R3) + SAVE NEXT UUT NEXT SEC (TEMP 5) 
5371 0 0 MoV R5,R4 + SAVE NEXT WUT NEXT SEC (TEMP 4) 
5372 017722 020437 002174 iFC231: CMP R4, MAXSEC + 1F NEXT SECTOR > MAX. SECTOR 
5373 017726 103432 BLO ELC231 7 N 
5374 017730 11 INC ( + INCREMENT UUT ae. SECTOR 
5375 017732 011102 MOV (R1),R2 +SET UP NEW STAR 
5376 017734 005237 020056 INC SCPSCT + INCR SECTOR Pass CNT 
5377 017740 020437 002174 1FO231: CMP R4. MAXSEC + 1F NX C NOT = MAX SEC 
5378 017784 001417 BEQ EL0231 ; THEN. 
5379 0177%6 020237 002174 1FF231: CMP R2, MAXSEC + 1F DRV START SEC > MAX SEC 
5380 017762 101411 BLOS ELF 231 + THE 
5381 017764 012737 000001 020102 THF231: Mov #1, UTSCON +SET UUT SECTOR DO 
5382 017762 004737 020110 CALL STSCON + CALL 2.3.1.A - SET DRIVE SECTOR DONE FLAG 
5383 017766 005011 CLR (R1) CLEAR UUT STARTING SECT 
5384 017770 005037 020056 CLR SCPSCT CLEAR SEC PASS CNT 


K 
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5385 017774 000420 BR ENO231 >BRANCH TO END GET SECTOR 

5386 017776 010213 ELF231: Mov RZ, (RI) >SET ORV NXT SEC = ORV START SEC 

5387 020000 010204 Mov RZ, R4 7SAVE ORV NXT SEC 

5388 020002 000415 BR ENOD231 >BR TO END 

5389 020008 012737 000001 020060 €ELD231: MoV #1, STSCFG i SET START SEC FLAG 

5390 020012 000411 BR ENOD231 R TO END 

5391 020018 000410 ELC231: BR ENOD231 ; BRANCH TO ENO GET oe 

$392 020016 012737 000001 020102 €EL8231: Nov #1, UTSCON >SET ORIVE SECTOR OONE FLAG 

5393 0200248 004737 020110 CALL STSCON ;CALL MOO 2. 3.1.A - SET DR IVE SECTOR DONE FLAG 

53% 020030 005037 020056 CLR SCPSCT > CLEAR SEC PASS CNT 

5395 02003) 005011 CLR (R1) > CLEAR UUT STARTING SECTOR 

53% 020036 013737 020102 002300 END231: NOV UTSCON. SECON 

5397 020088 010437 020054 MoV R4,NXSCSA ; 

5398 020050 000240 NOP F 

5399 020052 RTS PC ;RETURN TO MOD 2.3 

5400 ;MOO 2.3.1 ----- REGISTERS & TABLES ----------- <<< 0-0 --------------- 

5401 020054 000000 NXSCSA: 0 

5402 020056 000000 SCPSCT: 0 + SEC PASS COUNT 

5403 020060 000000 STSCFG: O ;GET NEW STARTING SEC FLAG 

540% 020062 000000 SSEC: 0 ;UUT STARTING SECTOR 

6405 0200648 000000 0 3 

54806 020066 000000 0 ; 

5407 020070 000000 0 3 

5408 020072 000000 NSEC 0 ;UUT NEXT SECTOR 

5409 020078 000000 0 F 

5410 020076 000000 0 ; 

5411 020100 000000 0 ; 

5412 020102 000000 UTSCON: 0 ;UUT SECTOR DONE FLAG 

5413 020104 000003 INTLV: 3 ;SECTOR INTERLEAVE 

541% 020106 000000 CURSEC: 0 > CURRENT SECTOR UUT 

Bais :MOO 2.3.1 ----- END MODULE ------ 9 enn nnn nnn nn nnn nn nnn nnn nn nnn nnn nne-- 

S416 

5417 

5418 

5419 .SBTTL MOD 2.3.1.A - SET SECTOR DONE 

5420 bere een men ecm wren em ee en ence meee ewww cere cow e eee een e nc ee esos ences ecec= 

5421 

5422 020110 000240 STSCON: NOP ; 

5423 020112 032737 000001 002214 BIT #1,UUT 7 IF ORIVE #1 DONE 

542% 020120 001404 BEQ 1$ ; THEN 

5426 020122 052737 000002 015652 BIS #2. BOVSCD +SET ORIVE #1 SEC DONE FLAG 

5426 020130 000403 BR BR 

5427 020132 052737 000001 015652 1%: 81S #1, B0VSCD +;SET DRIVE #0 SEC DONE FLAG 
020140 000207 : RT P ; RETURN 
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CZRXDA. P11 27-JUL-78 09: 00 moo 2.3.2 - GET A TRACK 
5431 .SBTTL MOD 2.3.2 - GET A TRACK 
ass J rn rn en a on nnn no nn nn nn enn enn enn nnn ene n nnn nne--- 
S434 020142 013737 002170 020436 GETTRK: MoV INDITK.MAXTRK ; 
S435 020150 013737 002166 020434 nov OTDITK.MINTRK ; 
S43 020156 005737 020454 1FH232:- TST INI TTK ; 
S437 020162 001413 BEQ E1H232 3 
S438 020164 54 CLR INITTK ; 
S439 020170 012701 020444 nov STKTL.R1 ; 
5440 020174 1 CLR ( $ 
541 020176 005021 CLR (R1)4 ; 
5842 020200 005021 CLR (R1)+ 3 
5843 020202 005011 CLR (R1) ;SET UNTI1I 
5884 020208 013737 020434 020442 nov MINTRK,.CURTRK ;SET MIN CURRENT TRK 
5846 020212 613702 002214 EIH232: MOV UUT,R2 >GET UNIT UNDER TEST INDICATOR 
5646 020216 006302 ASL R2 ;DOUBLE FOR ADDRESSING WORDS 
5847 020220 006037 020432 CLR TRKONF > CLEAR TRACK DONE ay 
S648 020228 032737 002000 020440 IFAZ32: BIT #2000. TRK I NC 7 1F INCREMENT TRACK 
S889 020232 001023 BNE 1F G232 ;NOT SET. THEN (USE SELECTED TRK SEQ) 
5860 02020 012701 020444 nov @TKTL, R1 +GET ORIVE TRACK TABLE L 
5451 020280 060201 ADD R2.R1 ;CAL. ORV. TRK. TAB. Loc nO 
S662 020282 011102 nov (R1),R2 ;GET ORV. TRK. TAB. LOCATOR 
5653 020284 012703 035330 Mov @TRKTBL.R3 ;GET BEGIN TRACK TABLE ADR 
5854 020250 060203 ADD R2,R3 ;CAL. TRACK TAB. ADR. THIS DRIVE 
5455 020252 202 INC R2 ; INCREMENT ORV. TRK. TAB. LOCATOR 
5eS@ 020264 010211 nov RZ, (R1) +; SAVE ORV. TRK. TAB. LOCATOR 
5857 020256 337 020442 Move (R3), CURTRK +; SAVE CURRENT T 
5868 020262 005203 INC R3 ; INCREMENT TRACK TAB. POINTER 
5859 020264 105713 1FF232: TSTB 7 1F NEXT TRACK 
5860 020266 002004 BGE ELF 232 ;EQUALS -1 
5861 020270 012737 000001 020432 nov #1. TRKDONF ; THEN SET TRACK DONE FLAG 
5862 020276 0065011 CLR (R1) 7RESET ORV. TRK. TAB. LOCATOR ADR. 
S463 020300 O0044s ELF232: BR END232 ;BR TO END MOD. 
546s 020302 123737 020442 020436 IFG232: CNPB CURTRK.MAXTRK =; 1F CURRENT TRK > OR = MAX TRK (0. DD.) 
5865 020310 103403 BLO 1F 8232 THEN 
S866 020312 013737 020434 020442 MoV MINTRK, CURTRK SET CURRENT TRK = MIN TRK 
6467 020320 123737 020442 020434 iF8232: CHPB CURTRK.MINTRK ; 1F CURRENT TRK > OR = MIN TRK (0.0. ) 
S868 020326 103427 BLO EL8232 ; THEN 
5469 020330 013701 020442 Mov CURTRK., Ri ;GET CURRENT TRACK 
5470 020338 006201 INC R1 ; INCREMENT CURRENT TRACK 
6471 020336 120137 020436 1FC232: CMPB R1. MAXTRK 7 1F CURRENT TRK 41 < MAX TRK (1.0. ) 
54872 02032 103001 BHIS 1F0232 ; THEN 
5473 O203% 000406 BR € 10232 ;BRANCH TO END IF ‘D' 
S474) O20R6 120137 020436 1F0232: ChPB R1, MAXTRK 7 1F CURRENT TRK +1 = MAX TRK 
S476 020352 001006 BNE 1FE232 ; THEN 
6876 020354 012737 000001 020432 MoV #1, TRKON ;SET TRK DONE FLAG 
6477 020362 010137 020442 £10232: MoV Ri, CUR TRK ;SAVE CURRENT TRK +1 = CURRENT TRK 
5478 020366 000412 BR END232 +BR END OF MOD. 
6479 020370 123737 O20436 O20434 iIFE232: CnPB MAXTRK.MINTRK ; IF TRK MAX = TRK MIN 
64880 020376 001003 BNE EL8232 4. 
6481 020800 pe Sk 000001 020432 nov #1, TRKOW ;SET TRK DONE FLAG 
13737 O2O0434 020442 €EL8232: MoV MINTRK,CURTRK ;SET CURRENT TRK = MIN. TRK (0.0. ) 
4% 013737 020432 002276 END232: MoV TRKONF , TRKON ; SAVE TRACK DONE FLAG 
5h ow 22 000240 NOP 3 
6485 020424 006037 020440 CLR TRK INC ; CLEAR TRK INCR FLAG 
5486 020830 000207 RTS PC j 
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END MODULE 
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1 MoD 


2. 3.3 - GET A DRIVE FUNCTION 


.SBTTL MOD 2.3.3 - GET A DRIVE FUNCTION 
GTOVFN: CLR Ri + CLEAR REG #1 
nov - OVTST, R1 GET ORIVE TEST 
1FAZ33: BIT a4 Ri ‘7 1F-NOT INITIALIZE 
BNE 1FB233 + THEN 
BIC #177700.R1 +CLEAR TOP BYTE OF Ri 
ASL 1 +; FORMAT FUNCTION 
BIS #1,R1 SET GO BIT 
1FE233: CHP R1,85 + 1F WRT FUNCT 
BNE 1F 8233 ; THEN 
BIS DELDAT. Ri +SET DEL DAT WRT (IF SET) 
1FB233: TST + 1F DRIVE 1S RXXX 
BEQ 1F 0233 + THEN 
002214 IFC233: BIT , WUT + 1F SIDE #1 1S SELECTED 
BEQ ELC233 ‘T 
BIS #1000, R1 +SET SIDE #1 BIT 
BR 1FO233 +BRANCH TO IF ‘D' 
ELC233: BIC #1000, R1 +SET FOR SIDE &0 
002214 IFO233: BIT #1, UUT + 1F UNIT UNOER TEST IS 
BEQ ELD233 DRIVE #1 
BIS #20.R1 + THEN SET DRIVE #1 SELECT BIT 
BR £10233 +BRANCH TO IF ‘D' 
ELO233: BIC #20,R1 ELSE CLEAR DRIVE #1 SELECT BIT 
E'0233: BIS N-R1 +SET DENSITY BIT 
BIS #100, R1 +SET INTERRUPT BIT 
a R1, ORVFN +PASS UP FUNCTION WORD 
END233: RTS PC + RETURN 
DOVTST: O +ORIVE TEST WORD 
sM00 2.3 3 ----- GMD ROLE svenesccnccecncccccccesascesaasessequceseses 


SEQ 0078 
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MOD 2. 3.4 - OUTPUT DRIVE FUNCTION 


IFAZ34: 
ELAZ34: 
THAZ34: 


1FH234: 


J 
1FK234: 
BNE 


ELK234: 
E1K234: 


ELB234: 
1F C234: 


1FO234: 
ELH234: 


EIH234: B 
ELO234: 


7 


CSAOR. AOR 
PC, OUTSID 
#40000, WOT 
ELAZ34 
THAZ34 
END234 

#10, WOOT 
ELB234 


ELH234 
a@TRBIT, ROYWO 
WOCT. WROS 
ROR. RORS 
PC. OUTSWD 
WOOT 


ELK234 
@OATPAT. WROS 
E1K234 
SOATBUF . WROS 
@TRBIT, RDYWO 


E18 

@TRBIT. ROYWO 
@XERUUT, WROS 
DBADR, RORS 





UNCTION 1S 
ERO, pe FILL. EMPTY” (FW BIT #3=6) 
THEN 'F FUNCTION IS 
EMPTY, FILL” (Fu BIT#&2=0) 


; THEN SET OUTPUT READY TEST WORD (PASS TO . *. 4 
OUTPUT P TO . 


+;AND SET WORD FOR PU (PASS 
AND SE1 ADDRESS OF OUTPUT (PASS TO 
+0U BASE ROORES 23.4 
7 iF ” heel (Fu BIT#1=0) 
SEY DATA a heng AOR (PASS TO 
® TO ENO IF 

SET DATA BUFF ch AOR (PASS TO 
SET OUTPUT te TEST WORD (PASS TO 
+ADORESS OF OUTP (PASS TO 
OUTPUT WORD COUNT WORD DO 2. 3.4. 


eens TO END IF ‘H' 


; IF FUNCTION WORD IS 
“WRITE 0.0" OR "RERO E.C" (FW BIT #2=1) 
i THEN, 1F FUNCTION | 
ITE 0. DO”. THEN (Fu BIT#1=0) 
Set OUTPUT READY TEST WORD 
+MOVE TRACK AND SECTOR ADDRESS 
i FORMAT TO SECTOR ADDRESS 


RDORESS 
sMOVE TRACK AND SECTOR ADDRESS 
FORMAT TRACK AOORESS 

+SET OUTPUT READY TEST WORD 
+ADORESS OF OUTPUT 

:QUTPUT TR TRACK ADORESS 


+ SET READY WO TO TR MODE 
EXT ERR. CODE TABLE ADD 
ADDRESS OF OUTPUT. RXDB 


7 
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CZRXDA. P11 27-JUL-78 09: 00 MOD 2. 3.4 - OUTPUT DRIVE FUNCTION SEQ 0080 
5587 021152 004737 021260 JSR PC, OUTSIO +0/P BASE ADD FOR ERR. CODE 
5588 021156 000424 BR £18234 + DONE 
5589 021160 000240 ELC234: NOP ; 
5590 021162 032737 000002 017524 IFE234: BIT #2. WOOT + 1F FUNCTION IS 
5591 021170 001404 BEQ ELE234 “READ STATUS” (FW BIT#i=1) 
5592 021172 012737 O00001 021244 THE234: MoV #1, ERSTAT + THEN-SET ERR STATUS FLAG 
5593 021200 O00413 BR £18234 + DONE 
559) 021202 012737 000200 021550 ELE234: Nov @TRBIT, RDYWO +SET OUTPUT READY TEST WO 
5595 021210 013737 021246 021240 nov VAL WD. WRDS ; VALIDATION WORD 
559 021216 013737 021250 021242 nov OBAOR. AORS ADORESS OF OUTPUT. RXDB 
5597 021228 004737 021260 JSR PC, OUTSKD OUTPUT VALIDATION WORD 
5598 021230 004737 021324 E18234: CALL WATCH ;CALL MOD U.2 -WATCH DOG 
5599 021238 000240 END234: NOP ; 
ory 021236 000207 RTS PC RETURN TO MOD 2 3 
5602 021240 000000 WROS: 0 *MODULE 2. 3.4. 1 OUTPUT WOR 
5603 021242 000000 AORS: 0 *+MODOULE 2. 3.4. 1 OUTPUT ADDRESS 
5608 021244 000000 ERSTAT: O ;MODULE 0.0 ERR STATUS READ FLAG 
5605 1246 000111 VALWO: 111 EXTERNAL, VALIDATION WO (SET DENS-ASCII “I") 
5606 021250 000000 DBAOR: 0 +RX DATA BUFFER ADDRESS 
5607 021252 000000 CSADR: 0 +RX CONT/STATUS ADDRESS 
5608 021254 000000 TRKAOR: O + TRACK RODRESS 
5609 021256 000000 SECAOR: 0 + SECTOR ADDRESS 
ott sMOO 2.34% ----- BM) MORALE ececesccescnmcccenccennssagenssesesownaseres 


.SBTTL MOD 2. 3.4. 1 OUTPUT SINGLE WORD 


oO ee ed et OO et et et et 
—OvVveavnenfwnr 


021260 000240 OUTSWD: NOP ; 
021262 013737 021252 021552 MoV CSADR. CSRAOR +SET C&S REG AOR 
021270 013737 021550 021550 MoV ROYWO. ROYWO OUTPUT READY WORD (PASS TO DELAY) 
321276 004737 021450 JSR PC. DELAY +DELAY FOR READY DO DELAY 
021302 033777 021550 177742 BIT ROYWO, @CSADR + 1F READY, 
021310 001404 BEQ E02341 + THEN 
021312 000240 NOP ; 
021314 013777 021240 177720 Mov WRDS, @AORS +MOV WORD TO ADDRESS 
021322 000207 EO2341: RTS PC +RETURN TO MOD 2.3.4 
5627 SP 2G 4. 9 enecces CID NODULE ooonocoecoccccesconccesesccoesocsessese 
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CZRXDA. P11 27-JUL-78 09: 00 nmopnuUz3.4 - WATCH DOG TIMER SEQ 0081 


5629 .SBTTL MOD U.2.3.4% - WATCH DOG TIMER 

a sib ge er ems ngage or era 
5632 021324 005037 021446 WATCH: CLR ONF LAG + CLEAR DONE FL 

5633 021330 SETPRi &#PRIOO SET ng apy gett - ALLOW INTERRUPTS 
5638 021336 013704 021442 Mov OX, R4 SET 

5635 0213552 013703 021444 BAUZ34: MOV DLY.RZ SET 

5636 021346 005737 021446 1BUZ234: TST ONF LAG 7 lf INTERRUPTS DONE FLAG 

S637 021352 001410 BEQ LBU234 71S SET. THEN 

5638 021354 032777 OOOO4NO 177670 iCU234: BIT SONBIT.@CSADR ; IF DONT BIT 

5639 021362 001023 BNE XU234 71S NOT SET. 

5640 0213648 012737 010000 002234 Mov @BiTiZ.ERRTYP ;SET INTERR. BUT NO DONE ERROR 

5641 021372 000417 BR XU234 7BR TO MOO ‘EX! 

5652 021378 005303 LBU2Z34: DEC R3 +DECREMENT DELAY COUNT 

5643 021376 001363 UOU234: BNE 1BU234 700 UNIT DELAY COUNT=0 

5644 021400 005304 DEC Re +DECREMENT DELAY 

5685 0214802 001357 UAUZ34: BNE BAUZ34 7DO UNTIL DELAY MULT=0 

5646 0214908 032777 OO0O4O 177640 JEU2Z34: BIT #ONBIT.@CSADR =; IF DONE BIT IS 

5647 021412 001404 BEQ LEUZ34 ;SET. THEN 

5648 0214148 052737 020000 002234 BIS @BITIZ.ERRTYP ;SET DONE. BUT NO INTERRUPT ERROR 
Geng asieie 000403 BR XU 7BR TO MOD ‘EXIT’ 

5650 021% 052737 040000 002232 LEU234: BIS @BiTi4,.SYSERR ;SET T.0. ERROR 

5651 021432 XUZ234: SETPRI PRINZ ;SET PROCESSOR PRI=7 - NO INTERRUPTS 
5652 021440 000207 ; RETURN MOD 2.3.4 

5654 021442 000010 Dx 10 ;DELAY MULT 

5655 021444 100000 OLY: 100000 ; DELAY 

5656 021446 000000 ONFLAG: O ;DONE FLAG 

rr t8 2MOD U. 2 3.4 ---- END MODULE --------------------- 20-22-22 ------------- 
5659 .SBTTL MOD U. 2. 374 DELAY 

5660 J nn nw nn nn nn enn nn nnn nnn nnn e ne neneeeen= 
5e61 

5662 021450 000240 DELAY: NOP ; 

5663 021452 023727 021550 000000 IFAUZ3: CMP ROYWO. #0 7 1F READY WORD 

5664 021460 001430 BEQ xU23 ;EQUALS ZERO. THEN BR TO END IF ‘A’ 
5665 021462 013704 021544 MoV RYDX, RY + SET READY DELAY MULT 

5666 021466 013703 021546 BD0AUZ3: MOV RYOLY.R3 + SET READY DELAY 

5667 021472 033777 021550 000052 80B8U23: BIT ROYWO. @CSRADR =; IF READY 

5668 021600 001020 BNE xU23 ;EQUAL TO "1" . THEN BR TO END IF ‘B' 
5669 021602 006303 DEC R3 ELSE DECREMENT DELAY 

5670 021604 001372 BNE 808U23 +00 UNTIL R3=0 

5671 021606 005304 DEC RY ; DECREMENT DELAY MULT. 

5672 021610 001366 BNE BDAUZ3 +00 UNTIL R420 

5673 021612 062737 040000 002232 BIS @40000.SYSERR ;SET TIME OUT ERR 

5674 021620 AE 000026 002236 MoV @CSRAOR.CSRUUT ;GET UUT C&S R 

6676 021626 2737 000002 021552 ADD #2. CSRAOR + SET CSRADR " DB REG 

6676 021638 017737 000012 002240 MoV @CSRADR, ESRUUT GET UUT E&S R 

gh 021642 000207 xU23: RTS PC +RETURN TO CALLING MOD 

5679 021544 000020 RYDX: 20 ; READY rah TiMe te 

6680 021546 100000 RYOLY: 100000 : READY DELA 

5681 021550 000000 RDYWO: O ; READY WORD. - TEST FOR cevics READY 
6682 021552 000000 CSRAOR: O C&S REG OF UNIT- WAITING FOR 

5683 ;M00 U. 23.4 ----- END MODULE ------n nn nnn nnn nn nnn nnn nn nnn nnn nnn ne nee 
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025026 
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024146 


13:35 PAGE 35-2 
MOD U. 2. 3/4 DELAY 


.SBTTL MOD 2.4 - EVALUATE TEST RESULTS 


TSTEV, FUNEV 
EVOVST 
TSTEV, FNEVY 
EVUTEC 
#20000, TSTE 
EIAZ4 


EVDATA 
TSTEV, TSTCK 
UPDVST 


prerre TEST FUNCTION 


;CALL MOD 2.4. 2 - EVALUATE DRIVE STATE 

PASS TEST tek 

;CALL MOD 2.4.4 - EVAL UNIT ERR CODE 
Vv ;1F OATA CK BIT 


+ 1S SET, THEN 

*CALL MOD 2.4.1 - EVALUATE DATA 

PASS DRIVE TEST 

*CALL MOD 2.4. 3 UPDATE DRIVE STATISTICS 


EVTSTR: MOV 
NOP 
CALL 
MoV 
CALL 

1FAZ4: BIT 
BEQ 
CALL 

EIAZ4: MoV 
CALL 
NOP 
RTS 

TSTEV: 0 

; 8) 2. uy —s 
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022300 
022272 
000001 
002270 


035562 
036162 


022276 
022276 


022300 
000010 
000004 
022276 
022276 


022300 


022276 
022274 
022274 
022272 
000010 


000002 


28- JUL-78 
MoD 


022306 


015670 
002234 


002234 
002234 
000002 


022272 
000012 


002164 


002234 
015670 


1FA241: 
1F 1241: 


ELA241: 


BDAZ41: 


1FC241: 
1FO241: 


IFE241: 
1FF241: 
THF 241: 
1FM241: 


EIM241: 
EIF241: NO 
EL8241: 


IF J241: 
1FK241: 
1FL241: 


at 3 35 PAGE 35-3 


- EVALUATE DATA SEQ 0083 
MOD 2.4.1 - EVALUATE DATA 


+ CLEAR DATA ERR COUNT 
EAR 


KCK eCL 
#1, PTHERD ;SET PRINT HEADER FLAG 
Reape + SAVE WORD COUNT 
#1,R1 ; SUBTRACT 2 TO GET CHECKSUM 
#DATPAT, RZ GET ADORESS DATA SOURCE 

TBUF .R3 ;GET ADORESS DATA BUFFER 
R1,R2 CAL. ADOR SOURCE CHECKSUM 
R1,R3 CAL. AOOR BUFFER CHECKSUM 
(RZ), (R3) + 1F CHECK SUMS 
ELAZ41 ;NOT= THEN 
#2. ERTSAV 7 IF _CRC ERR 
ELA241 +NOT SET. THEN 
#4, ERRTYP +SET CHECKSUM ERR 
BYTNUM +CLEAR BYTE NUMBER 
#1,R1 CAL. TOTAL BYTE COUNT-LAST THO 
R1,BYTCNT + SAVE BYTE COUNT 
SOATPAT.R1 ;SET TEMPS1=DATA SOURCE BEGIN ADR 
SOATBUF . RZ +SET TEMP@2Z=DATA BUFFER BEGIN ADR 
BY TNUM, Ri CAL CURRENT BYTE ADDR (SOURCE) 
BYTNUM, RZ CAL CURRENT BYTE ADOR (BUFFER) 
op bo + 1F SOURCE BYTE & BUFFER BYTE 
DAERCT + INCREMENT DATA ERR COUNT 
#10, ERRTYP + SET DATA ERR-ERR TYPE 
#4, ERRTYP CLR CK SUM ERR-ERR TYPE 
BYTNUM, #2 + IF BYTE #0 OR #1 
1FE241 + THEN 
BYTNUM 7 IF BYTE #0 
1FE241 ; THEN 
#1, SEEKCK +SET SEEK ERR-ERR TYPE 
DAERCT. #12 +1F OVER 10 DATA ERRORS 
THF 241 + THEN 
#20, SWREG + 1F PRINT ONLY 10 DATA ERROR FLAG 
EIF241 + 1S NOT SET. THEN 
(R1), DATASB 
(R2), DATAWS 
PTHEAD + 1F PRINT HEADER 
EIM241 +OK. THEN 
PTHEAD +CLEAR PRINT HEADER 


@OMSG1, UNIT. TRACK. SECTOR 
#OMNSG2.BYTNUM. <B. DATASB>, <B. DATANS> 


BYTNUM + INCREMENT BYTE & 
BYTCNT +DECREMENT BYTE COUNT 
BYTCNT DO UNTIL BYTE COUNT 
BDAZ41 + EQUALS 

SEEKCK + 1F DISK SEEK ERR 
ENO241 + 1S SET AND 

#10, ERRTYP + 1F DATA ERR 

END241 +NOT SET AND 

#2. ERTSAV + iF CRC ERR 
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005037 015670 
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2704 000200 


047045 O40445 052440 
O45 022516 031523 


28- JUL-78 ‘1 - PAGE 35-4 
MOD 2.4. 


s;NOT SET 

+ THEN SET SEEK ERR 

CLEAR ERR TYP SAV 

+GET BEGIN OF DATA BUFFER 

+SET WORD LENGTH OF TABLE 

*CLEAR WORD IN DATA BUFFER TABLE 
+DECR “ssa WORD COUNT 


ALL TABLE WORDS ZEROED 
+ RETURN 


- EVALUATE DATA 
BNE END241 
BIS #1, ERRTYP 
: NOP 
CLR ERTSAV 
nov #DATBUF.RS 
nov #128. .R4 
BOB241: CLR (R5)4 
DEC RY 
TST RY 
E08241: BNE 608241 
RTS C 
SEEKCK. 0 
BYTCNT: O 
BYTNUM: O 
DAERCT: O 
TASB: O 
DATAWS: O 
PTHEAD: O 


SEEK CECK FLAG 
+BYTE COUNT 


BYTE NUMBER 

DATA ERR COUNT 
DATA SHOULD BE 

+ DATA WAS 

PRINT HEADER FLAG 


DMSG1: .ASCIZ /%N%A_UNIT#%01%A TRKAXDI%A SECR%DZ%N%A BYTE R%SZ2%AGOOD%S6%ABAD/ 


DMSG2: .ASCIZ /%N%S3%D3%S2%B8%S2%B8/ 


END MODULE 
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MOD 


023416 
023420 


023416 


021552 
021550 


002232 


002214 
023412 
023412 
023412 


021552 
021550 


002232 


002234 


002232 
023420 
023416 
002234 
023416 


5 
2.4.2 - EVALUATE DRIVE STATE 


EVOVST: 


1FAZ42: 


1F C242: 


ELC242: 


1F 0242: 


1FE242: 


1F G242: 
IF 1242: 


1FH242: 


MOD 2.4.2 - EVALUATE DRIVE STATE 


XE RUU 
pe x CSREV 
#40000, (R5) 


UUTAOR. CSRADR 
#0NB 1 T, RDYWD 
DELAY 


L 
#40, (R5) 
ELC242 
#10, SYSERR 
oe ag 


FUNEV, 

#1 O7770. Rt 
Ri, SYSERR 
END242 


1$ 
#20, EVCMD 
2$ 


EVCMO 
#13, EVCrD 
DE CMD 


#40000. ERRTYP 
1FL242 
#100000. CSREV 


+GET COMMAND & STATUS LAST OP UUT 
GET ERROR STATUS LAST OP UUT 

+ CLEAR EXTENDED ERROR CODE LOCATION 
+ 1F DONE NOT 

+SET THEN 

+ ISSUE PROG INIT TO UUT 

SET CSR 

+ SET DONE TEST 

sWAIT FOR T 

+ 1F DONE NOT 

+SET THE 

+SET_NO DONE ON INT-SYS ERR 

+BR TO END MOD 

+GET ORIVE FUNCTI 

*CLEAR ALL BUT FUNCTION 

+SET_NO DONE ON FUNCTION-SYS ERR 
BR TO END rx 

+CALL MOD 2.4.2.1 EVALUATE DRIVE RESPONSE 
iNoT=0. ERR 


THEN 
+ IFORV@#1 UNDER TST 
THEN 
SET CMD TO DRV#1 


7 BR 
;SET CMO TO DRVAO 
;SET READ UUT ESR IN CMD 
;SET DEN FOR CMD 
>READ UUT ESR 
;SET CSR ADR 
> SET DONE BIT 
+ CALL 

; 1F DONE dh 
NOT SET THEN 

+ SET ny BIT (SECONDARY PROBLEM) 
STF ERR BIT 


+ SET 

7ERR BIT - ERR TYPE 
+GET UUT ADR 

;CAL DBR ADR 

;1F ORV got BIT 


;SET DRIVE _ RDY-SYS ERR 
; NO IF 'E' 
ANY ESR ERR BIT SET 


R 

F 

HE 

F _UUT ERR BIT 

OT=1 THEN 

ET who ERR BIT 
R TO IF ‘L’ 

F UUT CSR ERR BIT 


= 


E 
S 
8 
; | 
T 
| 
;N 
S 
;B 
| 


‘ 
, 
‘’ 
a 
, 
; 
; 
‘ 
; 
, 
; 
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02 
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g 
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021634 
177774 
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a 13:35 PAGE 35- 


002234 


002234 


023412 


6 
0 2.4.2 - EVALUATE DRIVE STATE 


IF J242: 


1FK242: 


1FN242: 


ELM242: 
1F L242: 


1FN242: 


IF F242: 


1F 0242: 
1FP242: 
1FQ242: 
1FR242: 


1FU242: 
1F V¥242: 


1F $242: 


THS242: 


gogecogeesesrs2 


a4+4o4= NOAMNOAYM YUM=ANC 


aowmwow 
z—m— 


TST 


1FNZ42 
TSTEV, R1 
#177774.R1 


1FK242 
#4000, ERRTYP 
1FL242 
TSTEV, R1 
#177770.R1 
#3.R1 

IF M242 
#2000. ERRTYP 
1FL242 
TSTEV, Ri 
#177771.R1 
#6. R1 


#1, PRTECD 
#17, EVCID 
DEN. EVCMD 
EVCMO, (RS) 


EQUALS 1 THEN 

+GET TEST FUNCTION 

+CLEAR ALL BUT TWO BOTTOM BITS 
7 iF - thas FUNCT ION 


SET “waiTE A on - ERR TYPE 
BR TO | 


;GET TEST FUNCT 1ON 
*;CLEAR ALL BUT FUNCTION 
+ 1F READ FUNCTION 


; THEN 

7SET READ ERR-ERR TYPE 
BR - 

;GET TEST FUNCTION 


CLEAR BITS 
7 IF. FILLZEMPTY BUFFER 
+ THE 


N 
; SET ea ERR-ERR TYP 
-BR TO | 
i ELSE Set UNK ERR 
ctf a ERR (ESR) 


CLEAR ANY SEEK ERR 

+SET CRC ERR 

7 1F ESR BIT#3. 10,11 ARE 

+SET. THEN 

; SET UNKNOWN ERR-SYS ERR 

+BR TO IF ‘S' 

+GET TEST FUNCTION 

1F FUNCTION WAS 

‘POSSIBLE READ OR WRITE 

+BUT REALLY 

+ 1S READ OR WRITE. THEN 

+ 1F DELETED DATA FLAG IS 
THEN 


UNEX DO BIT 
— ERR. (ESR) 
T DEN ERR-SYS ERR 
DOUBLE MODE IS 


UUT_ ERR 
+ 


T ERROR CODE FLAG 
SET WUT NEXTENDED ERROR CODE 
+SET DEN 


FOR CMD 
;GET UUT EXT. ERROR CODE REGS 


SEQ 0086 





7? 
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CZRXDA. P11 27-JUL-78 09: 00 MOD 2.4.2 - EVALUATE DRIVE STATE SEQ 0087 
5900 0233348 013701 002216 MOV UUTAOR, Ri +GET UUT ADDR 
5901 023340 062701 000002 ADD #2.R1 +CAL DATA AOR 
5902 O2304% 013737 002216 021552 nov UUTADR.CSRADR ;SET CSR ADR 
5903 023352 012737 000200 021550 MOV @TRBIT. ROYWO ;SET “TR” y TEST 
590% 023360 004737 021450 CALL DELAY CALL DELAY MODULE-WAIT FOR TR 
5905 023364 032715 000200 1FT242: BIT #200, (R5) cif TR 
5906 023370 001004 BNE T +NOT SET 
5907 023372 052737 040007 002232 BIS #40007.SYSERR ;THEN SET “TR” ERR ON FUNCTION 
5908 023400 000402 BR END242 BR TO END MOD 
023402 012711 002312 ELT242: MOV #XERUUT, (R1) + SEND BASE ADOR FOR EXTEND ERR CODE 
5910 023406 000240 END242: NOP ; 
+444 023410 000207 TS PC 
5913 023412 000000 EVCMD: O CMO WORD USED IN THIS MOD 
5914 023414 000000 FUNEV: 0 
5915 023416 000000 CSREV: 0 
5916 023420 000000 ESREV: 0 
5917 +MOD 2.4.2 ----- EMD HORNE eco weeecenccennenccsqnsaneggreseesesanananan 


HAROWARE TESTS 


CZRXDA. P11 


MACY11 30A(1052) 
27-JUL-78 09: 00 


021634 
177771 
000006 


002152 
000002 
001000 


002240 
176777 


001000 
000001 
000400 
002240 
177377 


28-JUL-78 13:35 P 


002214 


002232 
002214 


002232 


AGE 35-8 
MOD 2.4.2 - EVALUATE DRIVE STATE 


.SBTTL MOD 2.4.2.1 - EVALUATE DRIVE RESPONSE 


EVDVRE: MOV TSTEV, R1 
BIC 


#177771.R1 
BIT #6,R1 
BEQ 6$ 
TST RXXX 
BEQ 1$ 
BIT #2, UUT 
BEQ 2$ 
Mov #1000, R1 
BR 3$ 
2$: CLR R1 
3S: MoV ESRUUT, RZ 
BIC #176777,R2 
CMP R1,R2 
BEQ 1$ 
BIS #1000, SYSERR 
18: BIT #1, UUT 
BEQ 4§ 
MoV #400, R1 
BR 5$ 
4$: CLR R1 
55: MoV ESRUUT. RZ 
BIC #177377,R2 
CMP R1,R2 
BEQ 6$ 
BIS #400, SYSERR 
6$: NOP 


RTS PC 
500 24% 2 1 on--- END MODULE 


+GET TEST FUNCTION 

CLEAR BITS 

7 1F NOT FILLZEMPTY BUFFER 

; THEN 

+ 1F RXXX 

or 

+SIDE @ SELECTED 

; THEN 

+SET R1_ TO TEST SIDE #1 SELECT 
+BR TO TEST RESPONSE 

+SET R1 TO TEST SIDE #0 SELECT 
+GET ESR UNIT UNDER TES 
Awe wire BUT SIDE SELECT 


; NG THEN 
+SET WRONG SIDE RESPONDING SYS ERR 
i #1 SELECTED 


+SET R1_ TO TEST DRIVE #1 SEL 

+BR TO TEST RESPONSE 

+SET R1 TO TEST ORIVE #0 SEL 

+GET ESR UNIT UNDER TE 

CLEAR ALL BITS BUT DRIVE RESPONDING 


’ 


[SET WRONG DRIVE RESPONDING SYS ERR 
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CZRXDA. P11 27-JUL-78 09: 00 MOD 2.4.3 - UPDATE DRIVE STATISTICS SEQ 0089 | 

eee .SBTTL MOD 2.4.3 - UPDATE DRIVE STATISTICS 

5956 

5957 023556 240 UPOVST: NOP ; 

023560 032737 000002 024126 IAZ243: BIT #2. ETSAV + 1F ERRTYP wy | 

5959 023566 1405 BEQ EA243 +HAS CRC ERR BIT SET. THEN | 

5960 023570 004737 024254 CALL UODCRST CALL UPDATE CRC STATISTICS | 

5961 023574 005037 024126 CLR ETSAV + CLEAR - _LYPE SAVE 

5962 023600 900457 BR 16243 +BR TO IF 

5963 023602 013737 002234 024126 EAZ43: MOV ERRTYP., ETSAV + SAVE ERR YP --) ETSAV 

596% 023610 013737 002234 024134 Mov ERRTYP, STERRG ;GET ERR TYP --> STAT ERR REG 

5965 023616 005037 024136 CLR STCNTR + ZERO STAT COUNTER 

5966 023622 032737 000002 024134 10243: BIT #2. STERRG 7 1F ERR IS 

5967 023630 001403 BEQ BF 243 -CRC. THEN 

5968 023632 042737 006002 024134 BIC #6002, STERRG *CLEAR CRC. RO. & WRT ERR BITS OF STAT ERR REG 

5969 023640 000241 BF243: CLC CLEAR CARRY Bi 

5970 023642 024134 ROR STERRG ;ROTATE RIGHT STAT ERROR REG 

5971 O236%6 103026 18243: BCC EB243 + 1F CARRY BIT SET. THEN 

5972 023650 013701 024136 MoV STCNTR, Ri +GET STAT COUNTER 

5973 023664 006301 ASL Ri +& DOUBLE FOR WORD ADORESS ING 

5974 023666 062701 024150 ADD SETTAB. Ri 7 CAL. CLASSIFICATION WORD-ADDRESS 

5975 023662 011137 024140 MoV (R1), CLASWD GET CLASSIFICATION WORD 

5976 023666 011102 MoV (R1),R2 GET CLASSIFICATION WORD-TO FIND LOG OFFSET 

5977 023670 000302 SWAB R2 ; CLASSIFICATION WORD UPPER BYT 

5978 023672 006302 ASL R2 i--SHIFT LEFT TO Ny LOG REG OFFSET (LAST 6 BITS) 

5979 023674 ASL R2 +--SHIFT LEFT AGAIN 

5980 023676 177004 BIC #177004,R2 + CLEAR UNWANTED BITS 

6981 023702 010237 024142 Mov R2. LOGOFF + SAVE ERROR LOG OFFSET 

5962 023706 005711 C243: TST (R1) + 1F ERR TYP CLASSIFICATION WORD 

5983 023710 100403 Bn! LC243 + TYPE=SOFT, THEN 

598% 023712 004737 024426 CALL UDSF ST +CALL UPDATE SOFT ERROR STATISTICS 

5985 023716 000402 BR EB243 +BR TO ENO ‘B' 

5986 023720 004737 024210 LC243: CALL UDHOST +CALL UPDATE HARD ERROR STATISTICS 

5987 023724 024136 E6243: INC STCNTR + INCREMENT STAT COUNTER 

5988 023730 37 000020 024136 UF243: CHP #16. . STCNTR +00 UNTIL ALL 16 

5989 023736 101340 BHI BF 243 BITS ARE DONE 

5990 0237480 013703 002312 1G243: MoV XERUUT. R3 ;GET EXTENDED ERROR CODE 

5991 023748 042703 177400 BIC #177400.R3 CLEAR UPPER BYTE 

5992 023760 005703 TST R3 + 1F_EXTENDED ERROR CODE 

5993 023762 001410 BEQ 1H243 +NOT=0, THEN 

59% 023764 162703 000010 SUB #10,R3 +ADJ ERROR CODE & FOR LOGGING 

5995 023760 012702 004672 Mov #ECLOG, RZ +GET LOC OF ERR CODE LOG 

599% 023764 060302 AOD R3.RZ +ADD ERR CODE TO LOC ERR CODE LOG 

5997 023766 063702 002220 ADD UUTOF F. R2 FIND LOC ERR REG THIS UNIT 

6998 023772 006212 INC (R2) + INCREMENT UNIT REG 

5999 023774 pp 4 002234 1H243: MOV ERRTYP. RS GET ERR TYP 

6000 02%000 2703 173774 BIC #171774,R3 +CLEAR ALL ERRS BUT RD. WT. CRC. SEEK 

6001 028008 005703 TST R3 + 1F ONE OF THESE ERRORS 

6002 001412 BEQ 11243 iT 

6003 O 013702 002272 MOV TRACK. R2 ;GET TRACK AOR 

6004 % 006302 ASL R2 +DOUBLE TRACK ADR FOR WORD ADDRESSING 

6005 028016 006302 ASL R2 +ADJ TRK 

606 006302 ASL 2 + FOR ADR. 

6007 022 062702 005156 ADD #TKXX, RZ +ADD TRACK LOG LOCATION 

6008 024026 063702 002220 ADD UUTOFF, R2 ‘FIND LOC ERR REG THIS UNIT 

6009 024032 005212 INC (R2) ; INCREMENT UNIT ERR REG 


HARDWARE TESTS MACY11 30A(1052) 28-JUL-78 ie 35 PAGE 35-10 
CZRXDA. P11 27-JUL-78 09: 00 MOD 2.4.3 - UPDATE OR IVE STATISTICS 


6010 02404 024130 11243: ERRSAV + 1F ERR SAVE HAS 
6011 O240%0 BNE L1243 
6012 O28082 005237 024132 ! ERSVCT 
6013 O240"%6 022737 000004 024132 1/243: #4. ERSVCT ; IF ERROR SAVE COUN 
6014 E1243 ;NOTs4, THEN 
6015 002244 @SEEKRT.RI1 + SET eEGIN ADORESS OF RETRY COUNTERS 
6016 000011 nov #11,R2 SET @ OF RETRY COUNTERS 
6017 BK243: (R1)+ ;CLEAR RETRY COUNTER 
601 RZ orn RETRY COUNTER & 
6019 UK243: R2 +00 UNTIL 

8 BK243 ALL COUNTERS CLEARED 
024132 ERSVCT CLEAR ERROR SAVE COUNTER 
002242 RETRY + CLEAR RETRY COUNTER 


E1243 7BR TO 
024132 L : ERSVCT CLEAR ERROR SAVE COUNT 
002234 024130 At or ERRTYP.ERRSAV +SAVE ERROR TYPE FOR NEXT ERROR CHECK 


7ERR TYPE SAVE 
7ERR TYPE SAVE REG 
7 ERROR SAVE COUNTER-COUNTS # OF NO ERROR PASSES 


Dede ededet ered Sted ededet ad 
SenoSkPRSR BRESKR 
No zo 


; COUNTER 
+ ERROR ey ks WORD-FROM TABLE 
sERROR LOG OFFSET FROM &CKSML 
RETRY COUNTER OFFSET FROM @ SEEKRT 
; TEST WORD-USED TO CHECK TEST DONE 


END MODULE 


nese ERROR TYPE CLASSIFICATION & OFFSETS TABLE 
; nares hades on ae: 


/ 
i SET /SEEK /SK-RTMSK/ 
SFT 7CRC crc = CRC / 


+HRO /CKSML 7 7HO / 
SFT /DATA ZOT-RTMSK/ 
; HRD - " oe. 
7HO 
“HO 
f= 


i i i 


7HD 
ZRO-RTMSK/ 
7) a 


Wh -OVOANnNOMSWNh 


cee oe 


6020 
6021 
6022 
6023 
6024 
6025 
6026 
6027 
6028 
6029 
6030 
6031 
6032 
6033 
6034 
6035 
603% 
6037 
6038 
6039 
6040 
6041 
6042 
6043 
6044 
6045 
6046 
6047 
6048 
6049 
6050 
6051 
6052 
6053 
604 
6055 
C6 
6057 
o 58 
6059 
6060 
6061 
6062 
6063 
6064 
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NEESZZSEE 


tet igat 


024556 
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28-JUL-78 13:35 PAGE 35-11 
MOD 2.4.3.1 - UPDATE HARD ERROR STATISTICS 


024140 


024146 
002234 


024142 
024144 


024142 


UDHOST: NOP 
1AZ431: BIT 


LAZ431: NOP 
EA2431: 


X2431: RTS 
+MOD 2.4. 3.1 


UDCRST: NOP 
1AZ2432: BIT 


182432: BIT 


L82432: MOV 


LAZ432: 
1€2432: BIT 


LC2432: MOV 
EC2432: NOP 


CALL 
RE TURN 


+MOO 2.4.3.2 


#7. CLASWD 
LA2431 
LOGOFF. R1 
@CKSML, Ri 
UUT 


, 


EA2431 


#6 | TO4, RTMASK 
#6 | TO2, RTMASK 
SFERLG 


---- END MODULE 


MOD 2.4.3.1 - UPDATE HARD ERROR STATISTICS 


i IF ERROR CLASS WORD- 
HEN 


OF FSET 
ERR LOG ADR=ERR LOG OFF + CKSML ADR 
+UUT ERR LOG ADR=UUT OFFSET + ERR LOG AOR 
; INCREMENT THE ERROR LOG 


BR TO END ‘A’ 


EST=DATA CHECK 
T SET, N 


T 

ERR TYPE=DATA ERR 

NOT SET. THEN 

;SET LOG OFFSET=CRC BAD LOG 
+ SET mgt} OFFSET=CRC ERR 


+BR TO 
SET DATA iy OFFSET 
*CLEAR RETRY MASK 


+SET DUMMY DATA RETRY COUNTER OFFSET 
CALL SOFT ERROR L 

+SET LOG OFFSET=CRC ERR LOG 

+SET RETRY OFFSET=CRC ERR 

+ 1F READ AFTER WRITE (RAW) 

BIT SET. THEN 

+ SET RETRY MASK=CRC 

+ SET RETRY MASK=WR ITE 

; C ENO 'C' 


-BR T 
+ SET RETRY MASK=CRC 
# SET RETRY MASK=READ 


[CALL SOFT ERROR LOGGER 
E TURN 


SEQ 0091 
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CZRXDA. P11 


024426 
024430 
024434 
024436 


EE 


0248470 
028976 
024500 
024506 
024510 
024516 
024 

024532 


024 
024540 
024546 
024552 
24554 


27-JUL-78 09: 00 


024140 


000050 
024556 


28- JUL-78 ¥ 35_ PAGE 3 
MOD 2.4 


024146 
024700 
024700 


024144 
024142 


024142 


. $8 TTL 


1A2433: 


182433: 


LB82433: 
EB2433: 


LAZ433: 
EA24 33: 


5-12 
. 3. 3 - UPDATE SOFT ERROR STATISTICS 
MOD 2.4.3.3 - UPDATE SOFT ERROR STATISTICS 


: NOP ; 
MoV CLASWD, R2 ;PUT CLASSIFICATION WORD IN R1 
ASR 2 + SHIFT WORD RIGHT 
AR R2 ; 3 TIMES TO GET 
ASR R2 ; RETRY COUNTER OFFSET (LAST 6 BITS) 
BIC #177700.R2 ;CLEAR TOP 10 BITS 
MoV RZ. RTOFF +SET RETRY COUNTER OFFSET 
mov CLASWO, RZ +GET CLASSIFICATION 
BIC #177770.R2 7 CLEAR ALL BIT ERROR CLASSIFICATION 
a #6.R jt 


(IF T 
BEQ LB243 READ AFTER WRITE (RAW) BIT SET. THEN 
MOV #12, RT MASK SET DATA & WRITE RETRY 
BR EB2433 +BR TO ENO IF ‘B° 
MoV #14, RTMASK + SET DATA & READ RETR 
MoV #10, RTOFF SET DATA RT COUNTER OFFSET 
MoV #50. LOGOFF + SET DATA LOG OFFSET 
BR EAZ433 +BR TO END '' 
MOV R2, RTMASK ; ELSE-PUT CLASS INTO RETRY MASK 
SUB #50, LOGOFF ;ADJ. LOG OFFSET SO THAT ‘SEK’ IS LOG BEGIN 
— SFERLG 7 CALL SOFT ERROR LOGGER 
R ; RETURN 


HARDWARE TESTS MACY11 30A(1052) 28-JUL-78 <i 35 PAGE 35-13 
CZRXDA. P11 27-JUL-78 09: 00 MOD 2.4.U1 - SOFT ERROR LOGGER SEQ 0093 
oie .SBTTL MOD 2.4. U1 - SOFT ERROR LOGGER 
6146 
6147 024556 000240 SFERLG: NOP ; 
6148 024560 013701 024142 nov LOGOFF. R1 ‘GET ERR LOG OFFSET 
6149 024564 013702 024144 MoV RTOFF.R2 +GET RETRY COUNTER OFFSET 
6150 024570 062702 002244 ADD SSEEKRT,R2 ;CAL. RETRY C ER 
6151 624578 032737 O00004 002164 IAZ4U1: BIT #6 | T02, SHREG + 1F_ RETRY OM ERROR. LOG SOFT OR HD ERROR 
6152 024602 001412 BEQ LB24U1 +SET (SFT SW REG). THE 
6153 024608 021227 000012 1B24U1: CMP (R2), 812 +1F RETRY COUNTER 
6154 024610 103007 BHIS LB24uU1 EQUALS < 10 ERRORS, THEN 
6155 024%612 005212 INC (R2) + INCREMENT RETRY COUNTER 
6156 02%6189 053737 024700 002242 BIS RTMASK, RETRY +SET RT FL PER RT MASK 
6157 024%622 005037 002306 CLR HARDER + CLEAR HARD ERROR 
6158 024626 000413 BR EB24U1 7BR TO *B' 
6159 02%630 062701 004602 LB24U1: ADD @HSEK, R1 a ERR LOG ADR=HARD SEEK ADR+L0G OFFSET 
6160 02463) 063701 002220 ROD UUTOFF. Ri UUT ERR LOG AOR=UUT OFFSET+LOG ADR 
6161 024640 005211 INC (R1) ; INCREMENT UUT HARD ERROR LOG 
6162 2 043737 024700 002242 BIC RTMASK, RETRY CLEAR RETRY FALGS USING Ri MASK 
6163 024650 005012 CLR (R2) CLEAR RETRY COUNTER 
616% 024%652 005237 002306 INC HARDER SET HARD ERROR FLAG 
6165 024656 013701 024142 EB24U1: MOV LOGOFF. Ri GET ERR LOG yd 
6166 024662 062701 004512 ADD aSEK,R1 ERR LOG ADR=SEK LOG ADR+LOG OFFSET 
6167 002220 AOD UU RI ;UUT ER ADR=UUT OF FSET+LOG ADR 
6 024672 005211 NC ( + INCREMENT UUT ERROR L 
6169 240 X24U1: NOP ; 
ry 024676 000207 Ts PC + RETURN 
6172 024700 000000 TRASK: ° sRETRY MASK 


HARDWARE TESTS 
CZRXDA. P11 
6176 
6177 
6178 
6179 024702 
6180 024706 
6181 024712 
6182 024714 
6183 024716 
6184 024720 
6185 024722 
6186 024726 
6187 024730 
6188 024732 
189 024735 
G1 024740 
6191 024742 
6192 024746 
6193 024750 
619% 024756 
6195 024760 
6196 024766 
6197 024770 
6198 024776 
6199 026000 
025006 
6201 025010 
6202 025016 
6203 026020 
6204 025024 
6205 
6206 025026 
6207 
6208 025030 
6209 025032 
6210 025034 
6211 026036 
6212 025040 
025042 
025044 
0250%6 
026050 
026052 
025054 
025056 
026060 
025062 
025064 
025066 
025070 
026072 
025074 
026076 
025100 
025102 
025104 


SSBSRRSBRRESESESEE 


& 


MACY11 30A(1052) 
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002312 
177400 


28-JUL-78 13:35 PAGE 35-14% 
MOD 2.4.4 - EVALUATE UNIT ERROR CODE 


-SBTTL MOD 2.4.4 - EVALUATE UNIT ERROR CODE 


025026 
002234 
025026 
002234 
002234 


EVUTEC: MOV. XERUUT. Ri 
BIC ict. 


1FAZ44: TST 1 
BEQ ENOD244 
ASR Ri 
ASR Ry 
ADD #ECCLAS.R1 
(R1),R2 
1FB244: TSTB R2 
BNE C244 
BIS RZ. SYSERR 
BR 244 
1FC244: CMPB #300, R2 
BNE LC244 
1FD244: CMP #3. FNEV4 
BNE 1FE244 
BIS #2000, ERRTYP 
BR ENO244 
1FE244: CMP #2. FNEV4 
BNE ELE244 
BIS #4000, ERRTYP 
BR END244 
ELE244: BIS #40000. ERRTYP 
BR END244 
ELC244: BIS RZ. ERRTYP 
END244: RTS PC 
FNEV4: O 
ECCLAS: .WORD 0 
.-WORD 1 
-WORD 1 
.WOoRD O 
.WORD 4000 
-WORD 1 
WORD 2000 
WORD 300 
WORD 4000 
.WORD 300 
. WORD 
WORD 300 
. WORD 
. WORD 
WORD 300 
.WORD 300 
. WORD 
.WORD O 
WORD 2000 
.WORD 4000 
.WORD 20 
WORD eee 
;MOD 2.4.4 ----- ENO MODULE --- 


+GET ERR CODE & SAVE 

CLEAR TOP BYTE 

+ 1F_ERRCODE 

+NOT=0, THEN 

+SHIFT ERR CODE FOR LOOK UP 

+ AND ESSING 

CAL ERR TABLE CLASSIFICATION ADR 
+GET ERR CODE CLASSIFICATION WORD 
; OWER BYTE 


be | 
[ond 
BW 


om 


0. THEN 
Ss 


ONTO SYSERR 
iF ‘B 


223m 
5 
Gees 
gee 
83 
~ 
bz 
bs 
+ 


83 
2 


ow 
pm 
Ze 

m 
-x 
“sD 


@oupn-@BupD—-™—-Wsum— 
~ 


zm nm 6h 


45 +z 

4 a4 mT 
mo=mA 
& 
$75 


© Be Be Be Be Be Be Be Be Be Be Se Se Be 


. 
“ 
m 
~ 
_" 
a 
m 
m 
@ 
@ 


7 BR NO | 
+SET CLASSIFIED ERROR ONTO ERRTYP 
; RETURN 


, 


sERR CODE # OO ---> NOT USED (NO ERROR) 
;ER SEEK 


ENSITY ERR 
260 ---> NOT ASSIGNED 


4 

7ERR CODE # 10 ---> 
ERR CODE # 20 ---> SEEK 
ERR CODE # 30 ---> NOT ASSIGNED 
ERR CODE # 4O ---> SYS ERR 
ERR CODE # 50 ---> SEEK 
ERR CODE # 60 ---> SELF DIAG ERR 
ERR CODE # 70 ---> READ OR WRITE ERR 
ERR CODE # 100 ---> SYS ERR 
ERR CODE # 110 ---> READ OR WRITE ERR 
*ERR CODE # 120 ---> READ OR WRITE ERR 
ERR CODE @ 130 ---> READ OR WRITE ERR 
ERR CODE # 140 ---> CRC ERR 
ERR CODE @ 150 ---> SEEK ERR 
ERR CODE @ 160 ---> READ OR WRITE ERR 
ERR CODE # 170 ---> READ OR WRITE ERR 
ERR CODE # 200 ---> CRC ERR 
ERR CODE # 210 ---> NOT ASSIGNED 
ERR CODE @ 220 ---> SELF DIAG ERR 

CODE # 

CODE # 

CODE & 

CODE # 
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CZRXDA. P11 27-JUL-78 09: 00 MOD 2.4.4 - EVALUATE UNIT ERROR CODE SEQ 0095 
6233 
6234 .SBTTL MOD 2.5 - OUTPUT ERROR TYPE 
6236 SARGERAS + > aaa aa al aga oS Aa NH 
6237 025106 013737 002234 030044 OTERTP: MoV ERRTYP.ERRREG ;SET ERROR TYPE FOR PRINT OUT 
6238 025114 000240 NOP ; 
6239 025116 013701 002234 Mov ERRTYP, Ri GET ERROR TYPE 
6240 025122 005002 CLR R2 CLEAR ERROR & COUNT 
6241 0251248 000240 BOAZS5: NOP ; 
6242 025126 0632701 000001 1FAZS: BIT #1,R1 71F BIT 1 
6243 025132 001405 BEQ ELAZ5 EQUALS 1 
6244 025138 010204 Mov R2,R4 + SAVE FRROR @ COUNT 
6245 025136 006304 ASL RY +DOUBLE ERR & COUNT FOR — 
6246 025140 062704 025760 ADD #ET1,R4 SET AOOR FOR ERR MSG PRIN 
6247 025144 000407 BR THAZS +BR TO THEN ' 
6248 025146 000241 ELAZS: CLC *CLEAR CARRY BIT 
6249 025150 006201 ASR Ri +SHIFT ERR TYPE RIGHT 
6250 025152 005202 INC 2 + INCREMENT ERROR # COUNT 
6251 025158 022702 000017 CMP #17,R2 +DO UNTIL ERROR & COUNT 
6252 025160 001361 BNE BDAZS sE S 15, 
6253 025162 BR E1A25 +BR TO END IF ‘A’ 
025164 005003 THAZS: CLR R3 CLEAR RJ 
025166 010205 MOV R2.R5 +GET ERRE 
6256 025170 062705 026020 ADD #ETCLAS.RS CAL. ERR#® CLASSIFICATION ADR 
6257 025178 111503 Move (R5),R3 GET ERR®# CLASSIFICATION 
6258 025176 032703 000001 1FB25: BIT #1,R3 +1F SOFT ERR 
6259 025202 001413 BEQ 1FC25 CLASS. THEN 
025208 005737 002306 TST HARDER + 1F HARD ERR 
6261 025210 001013 BNE ELB25 +NOT SET. THEN 
6262 025212 010237 025224 MOV R2, SFTE1+2 +SET ERR & 
6263 025216 011437 025226 MoV (R4), SFTE1+4 + SET ERR MSG 
6264 025222 SFTE1: ERRSOFT 0,0 eer ERROR 
6265 025230 000416 BR E1C25 
6266 025232 000002 1FC25: BIT #2.R3 ; IF HARD ERR 
6267 026236 001413 BEQ E1C25 CLASS. THEN 
6268 025240 052702 000040 ELB25: BIS #40, RZ +SET HARD ERROR & 
6269 O0252%% 010237 025256 MoV R2. HOTE1+2 ‘SET ERR & 
6270 026250 011437 025260 MoV (RY), HOTE1+4 +SET ERR MSG 
6271 026254 HOTE1: ERRHRO 0,0 HARD ERR 
6272 026262 005237 002306 INC HARDER + SET D FL 
6273 025266 013737 002234 O30044 EIC25: MoV ERRTYP.ERRREG ;SET ERR TYPE FOR PRINT OU 
6274 026274 004737 027644 CALL *CALL U.P. ERR - PRINT ERR INFO 
6276 026300 013737 002234 015670 MoV ERRTYP.ERTSAV ;SAVE ERR TYP F 
6276 026306 006037 002234 CLR ERRTYP CLEAR DEVICE ERR 
6277 026312 004737 030274 CALL XERPRT +CALL MOD U. PRT.B - PRINT ERR CODE 
6278 025316 005737 002306 if025: TST HARDER + 1F NOTA 
6279 025322 001002 BNE EL025 +HARDER. THEN 
6280 025324 004737 026040 CALL PTRTY +CALL 2.5.1 - PRINT RETRY & 
6281 026330 002306 ELO25: CLR HARDER +CLEAR HARD ERROR FLAG 
6282 025334 000240 EIAZ5: NOP ; 
6283 025336 000207 RTS PC + RETURN 


6284 ; 





8 
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CZRXDA. P11 27-JUL-78 09: 00 MOD 2.5 - OUTPUT ERROR TYPE SEQ 0096 
6287 O25340 051440 042505 020113 ERT ASCIZ / SEEK ERR/ 
6288 025352 O81440 041522 O42440 ERTZ: ASCIZ 7 CRC ERR/ 
6289 025363 OHO O45503 051440 ERTS: SCiZ 7 CK SUM ERR/ 
6290 025377 O40 040504 ERTY: ASCIZ 7 DATA ERR/ 
6291 025411 O40 047125 1 ERTS: ASCIZ / UNASSG ERR/ 
6292 025425 O40 042508 027114 ERTE: ASCIZ 7 DEL. DATA UNEXPECTED ERR/ 
6293 025457 O40 042508 027114 ERT?: ASCIZ / DEL. OATA + Shosohans ERR/ 
6294 025506 052440 040516 ERTS: ASCIZ / UNASSG ERR/ 
6295 025522 052440 045516 O42440 ERTS: ASCIZ 7 UNK ERR/ 
629% 025533 O40 ON4506 O4G114 ERTIO: .ASCIZ / FILL OR EMPTY BUFFER ERR/ 
6297 025565 O40 082522 042101 ERTI1: .ASCIZ / READ ERR/ 
6298 025577 051127 052111 ERT12Z2: .ASCIZ / WRITE ERR/ 
6299 025612 OW844O 052116 051105 ERTI3: .ASCIZ / odd aon BUT NO DONE BIT ERR/ 
6300 i 047504 16 ERTI4: .ASCIZ / DONE BIT BUT NO INTERRUPT ERR/ 
6301 025710 O82440 051122 051117 ERTIS: .ASCIZ / ERROR, BUT NO ERR BIT SET/ 
one 025743 051105 020122 ERTI6: aa 7 ERR BIT SET/ 
630% 025760 025340 ET! WORD ERT! 
6305 025762 025352 .WORD ERT2 
6306 025764 025363 WORD ERT3 
6307 025766 025377 .-WORD ERTY 
6308 025770 025411 .WORD ERTS 
6309 772 025425 .WORD ERT6 
6310 025774 025457 WORD ERT? 
6311 025776 025506 WORD ERTS 
6312 026000 025522 .WORD ERTY 
6313 026002 025533 WORD ERTIO 
6314 026004 WORD ERTI1 
6315 026006 025577 WORD ERT12 
6316 026010 025612 WORD ERT13 
6317 2 WORD ERTI4 
6318 025710 WORD ERT1S 
6319 026016 WORD ERT16 
6320 (SRR e cen ereRtene Teen ERASERS REET Ss oR Ng RTOS TERETE OER ReSSNaKasesESs 
6321 ; ERROR - TYPE - ERR® 
6323 026020 001 ETCLAS: .BYTE 1 ; SEEK - SOFT - O -32 
6324 026021 001 .BYTE 1 + CRC - ST « 1 -33 
6325 026022 002 .BYTE 2 + CKSUM - HARD - = -34 
6326 026023 001 .BYTE 1 + DATA - SFT - 3-35 
6327 026024 .BYTE O 7U : 
6328 026025 002 .BYTE 2 *DEL. DATA UNEX - HARD - -37 
6329 026026 002 .OYTE 2 *DEL. DATA MISSING - HARD - -38 
6330 026027 .BYTE 0 + UNASS | GNED ° 
6331 026030 002 .BYTE 2 ;UNK ERR - HARD - -40 
6332 026031 002 .BYTE 2 7FILLZEMPTY BUFFER - HARD - -41 
6333 026032 001 Vm 9 *REAO - SOFT - 10-42 
6334 026033 001 .BYTE 1 + WRITE - SOFT - 11-43 
6335 026034 002 .BYTE 2 + INTER-BUT NO DONE - HARD - = -44 
6336 026035 002 .BYTE 2 +DONE-BUT NO INTER “WARD - -4§ 
6337 026036 002 .BYTE 2 *ERR-BUT NO ERR BIT - HARD - -46 
os 026037 002 y Ms 2 sERR BIT SET - HARD - -47 


EVEN 
----- END MODULE ---------------------------------------------- 


oon 

2? 

-o 
x 
So 
=) 
Nv 
w 


HARDWARE TESTS MACY11 30A(1052) 
CZRXDA. P11 27-JUL-78 09: 00 


002244 
026272 
000002 
000030 
000010 
002254 
026316 
002252 
026452 
002264 
026350 


020101 


PPPEREE ET LIU LL RERERPRREELS dada ta 


a4 


28- JUL-78 
no 


002242 


002242 
002242 
002242 


002242 
002242 
002242 


042505 
052101 
044522 
040504 


040505 
041522 
051103 


RETRY 

WRT. THEN 

RETRY 

DATA OR CRC . THEN 
RETRY 

DA 


TA. THEN 

DATA RT COUNT 
DATA WRT MSG 

TO END IF ‘B' 

CRC RETRY COUNT 
CRC WRT MSG 

TO END IF ‘B' 
WRT RT COUNT 
WRT RT MSG 


=t=8 mind ata 


RE 
DATA. OR CRC. THEN 
RETRY 


ke ek 
MM NN NM NDBMMBMMBMMmnnMmnnwny w 


2B AN — — — — — — BHnBnnBnn——————@ 


DATA, THE 

T DATA RT COUNT 

ET DATA READ RT MSG 
TO END IF 

iat CRC RETRY COUNT 

:SET READ RT COUNT 

;SET READ RT MSG 

; PRINT RETRY # & TYPE 


; RETURN 


SSS SEE EEE ESSE EES EEE EASES EEE EEE a a 


7%A SEEK RETRY#%D2%N/ 

7%A DATA WRITE RETRY8%D2%N/ 
7%A WRITE RETRYS&%XO2%N/ 

7%A DATA READ rN + sate 


7%A CRC READ RETRY8&%D2%N/ 


13:35 PAGE 36-1 
D 2.5 - OUTPUT ERROR TYPE 
.SBTTL MOD 2.5.1 - PRINT RETRY 
PTRTY: NOP 
1FAZS1: TST RETRY 
BEQ 251 
1FB251: BIT #1, RETRY 
BEQ FC251 
MOV SEEKRT, Ri 
MoV @MSKRT, RZ 
BR £18251 
1FC251: BIT #2, RETRY 
BEQ 251 
1F0251: BIT #30, RETRY 
BEQ 251 
1FG251: BIT #10, RETRY 
BEQ LG251 
MoV DATART, Ri 
MoV SMOUTRT.RZ 
BR 18251 
ELG251: MOV CRCERT. Ri 
MoV @MCUTRT. 
BR £18251 
ELD251: MOV WRTRT.R1 
MoV AMWTRT, RZ 
BR £18251 
1FE251: BIT #4, RETRY 
BEQ END251 
1FF251: BIT #30, RETRY 
BEQ F251 
1FH251: BIT #10, RETRY 
BEQ H251 
MoV DATART. Ri 
MoV @MORORT. RZ 
BR 6251 
ELH251: MOV CRCERT. Ri 
MoV @MCRORT.RZ 
BR £18251 
ELF251: MOV REAORT, R1 
MoV @MRORT. RZ 
NOP 
£18251: PRINTB R2Z.R1 
NOP 
END251: RTS PC 
MSKRT: .ASCIZ 
MOWTRT: . ASCIZ 
MUTRT: .ASCIZ 
MORORT: . ASCIZ 
MRORT: .ASCIZ 
MCWTRT: . ASCIZ 
MCRORT: . ASCIZ 
. EVEN 
;MOO 2.5.1 ----- END MODULE 
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CZRXDA. P11 27-JUL-78 09: 00 MOD 2.6 - SET DRIVES DOM 
64 .SBTTL MOD 2.6 - SET DRIVES DONE 
6401 jn rr rn wr nn wn rn nn nn nnn nnn nnn ne nnn nnn nnnnn= 
6402 
6403 026534 000240 STOVON: NOP j 
640% 026536 005737 015660 1FA26: TST DVONCK 7 1F ORV DONE CK 
6405 026542 001430 BEQ END26 + 1S SET. THEN 
6406 026544 0 NOP ; 
6407 026546 005037 015660 CLR DVONCK ; CLEAR ORV DONE CK 
6408 026552 032737 000001 002214 IFB26: BIT #1, UUT 7 1F ORV@1 DONE 
6409 026560 001404 BEQ ELB ; THEN 
6410 026562 052737 000002 015650 BIS #2. BTHORV ;SET ORV#1 DONE FLAG 
6411 026570 000403 Be E18 ;BR TOE 
6412 026572 052737 000001 015650 ELB826: BIS #1, BTHORV ;SET ORV#O DONE FLAG 
6413 026600 005001 E1826: CLR R1 ; CLEAR TEMP DRV DONE REG 
641% 026602 013703 002214 Mov UUT,R3 ;GET UNIT UNDER TEST 
6415 026606 000261 SEC ;SET CARRY GIT 
6416 026610 006101 BDAZ6: ROL Ri ;MOVE ORV BIT 
6417 626612 005303 DEC R3 ;DECREMENT UNIT UNDER TEST 
6418 026614 005703 TST R3 -b0 ag UNIT UNDER TST 
6419 026616 2 DUA26: BGE 


002374 : BDA26 EQUALS - 
050137 015662 ais ata ‘THEN S Ser THIS DRV DONE 





HARDWARE TESTS MACY11 30A(1052) 28-JUL-78 13:35 PAGE 36-3 
CZRXDA. P11 27-JUL-78 09: 00 MOD 3.0 - OUTPUT EXERCISE COMPLETE SEQ 0099 
rat .SBTTL MOD 3.0 - OUTPUT EXERCISE COMPLETE 
6426 026626 000240 OTEXCH: NOP 
6427 026630 023737 002212 002210 CMP SUT, SOD lf Ay SCHEDULED 
6428 026636 001003 BNE END30 
6429 026640 012737 000001 010244 v #1, EXCMP SET EXERCISE COMPLETE 
6430 026646 000207 ND30: RTS Cc ; RETURN 


HARDWARE TESTS 


CZ2RXDA. P11 

6433 

6434 

6435 026650 
6436 026652 
6437 026656 
6438 026660 
6439 026662 
6440 026664 
6441 026666 
6442 026670 
6443 026672 
C4484 026674 
6445 026700 
6446 026702 
C447 026704 
C448 026706 
C4489 026712 
6450 026714 
6451 026716 
6452 026720 
6453 026724 
6454 026726 
6455 026730 
6456 026732 
6457 026736 
6458 026740 
6459 026744 
6460 026746 
6461 026750 
6462 026754 
6463 026760 
C464 026764 
C465 026772 
6466 026774 
6467 027000 
6468 027002 
6469 027004 
6470 027010 
6471 027014 
6472 

6473 027026 
6474 027030 
6475 027036 
C476 027042 
6477 027046 
6478 027050 
6479 027054 
6480 


MACY11 30A(1052) 
27-JUL-78 09: 00 


002232 


28- JUL-78 


030044 


13:35 PAGE 36-4 


MOD 4.0 - OUTPUT SYSTEM ERROR 
.SBTTL MOD 4.0 - OUTPUT SYSTEM ERROR 


BOAO: 
1FA4O: 


ELA4O: 


THAYO: 


iF B40: 


OVFER1: 


1FC4O: 


SYFER1: 


EIC4O: 


Ri 


RS, OVFERI+2 
(R4), OVFER1+4 


8 RS 

RS, SYFERI+2 
(R4), SYFER1+4 
0.0 


SYSERR. ERRREG 
PRTERR 
XERPRT 


SYSERR 
PC 


[GET SYSTEM ERR 
[CLEAR CARRY BIT 
+ SHIFT 


FUNCT ION 


COUNT 

; ERR & COUNT FOR ADDRESSING 
+SET ADOR FOR ERR MSG PRINT 

BR TO THEN ‘A’ 

SHIFT ERR TYPE RIGHT 

+ INCREMENT ERROR & COUNT 

+00 UNTIL ERR & COUNT 


TE 
CAL. ERR@ CLASSIFICATION ADR 
+GET ERR@ CLASSIFICATION 
+ 1F DEVICE FATAL 


ERRE 
+ SET fone CLASS=SYS 
SET ERR 
i SET ERR. MSG 


+BR TO END IF ‘C’ 

;1F SYSTEM FATAL 

7 ERROR, _ 

GET ERR 

+ SET enn CLASS=SYS 
ET ERR 


; SET ERR MSG 


; 


i SET SYS ERR FOR PRINT OUT 
[CALL U.P. ERR - PRINT ERR INFO 
;CALL MOD U.PRT.B - PRINT ERROR CODE 


[CLEAR SYS ERRORS 


SEQ 0100 
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HARDWARE TESTS MACY11 30A 
CZRXDA. P11 78 00 


6483 
6484 
6485 
6486 
6487 
6488 
6489 
6490 
6491 
64 


64 

6495 
6496 
6497 
6498 
e499 


BE 


Oe eo ek eo ee ee 
—OvVveavneneuno 


6531 





MOD 4.0 - OUTPUT S 


sezhae8 


ONG DENSITY ERR/ 


BR 
a a) 
Rs. 

Ce 


2 
& 


£ 
SV NVANALRVVVAAAAN 


1ED SYSTEM ERROR/ 
ODE: %03/ 
RROR REG=%B%N/ 


NANNANNNNNNNNNNIG 


R2 
gS 
S552 RRRRRRRRRRRBERR 


aoRe 


SESWNOOSENNNS 
ee . 
“nave 

< 


HAR 
CZR 


ag ee ee SEE EEE: 


TESTS 
Pil 


027644 
027704 


88 
33 
No 


030046 
030123 
030204 


MACY11 30A(1052) 


27-JUL-78 09: 00 


002310 
002310 
030044 
052440 


020101 
052040 


28-JUL-78 13:35 PAGE 36-6 
MOD 4.0 - OUTPUT SYSTEM ERROR 


051124 


.SBTTL MOD U. PRT. ERR - PRINT ERRORS 


. 


PRTERR: PRINTB 
iFAUP: TS 


#1DENT1. UNIT. csemrt ESRUUT. WOOT; 
PRTECD 


1F ERR CODE FLAG 


NOUP Ser. THEN 
@XER1, <B, XERUUT), <B, WC), <B. CTKO>, <8, CTK1D 


@XERZ, <B. TTRK>, <B. TSEC. <B. 
PRTECD + CLEAR E 


ERRREG 
PC 


SFTSTS>, <8. BTRK> 
AR ERR CODE FLAG 
;CLEAR ERR REGISTER 

+ RETURN 


; 
SSS SS ESS OEE EE SEE SE EEE EEE EEE EE EEE EEE EE BEAE EAA EAE EEE 


7%A UNITH%OIXA RXCSR=%OX%A_RXESR=%OXA ovaettesne 
7%A ERCD=XOIXA WC=XO3%A CTRKO=%O2%A. CTRK1=%D2%A._ 7 


T 
BEQ 
PRINTX 
PRINTX 
CLR 
ENDUP: CLR 
RTS 
ERRREG: 0 
1OENTI: . ASCIZ 
MERI: .ASCIZ 
MERZ: .ASCIZ 


. EVEN 
MOD U. PRT. ERR 


7%A TTRK=%D2%A. TSEC=%D2%A. SFTSTAT=%03%A BIRK=%D2%A. %N/ 


ENO MODULE 


HAROWARE TESTS MACY11 yt ed 
CZRXDA. P11 78 09: 00 


6555 
6556 
6557 
6559 


SEEE 


FEES 
SS88 


SSSSSSSBRERRSERESSSSS 


Hees 


030312 
030314 
030316 


030410 
030412 
030414 
030416 
030420 


27-JUL- 


032264 
032313 


002312 


002312 
177400 


030356 
030356 


002312 


28-JUL-78 13:35 PAGE 3 


6-7 
MOD U. PRT. ERR - PRINT ERRORS 


-SBTTL MOD U. PRT. EC - PRINT UNIT ERROR CODE 


Ri 
#ECTAB-2 Ri 
(R1). EXMSG 


7 1F ERROR 
s;NOT=0, THEN 
+ SAVE > ore ERR CODE IN TEMP #1 


RROR MSG 
+SET AOR OF ERROR MSG FOR PRINT 


[PRINT UNIT CODE ERROR MSG 
[CLEAR ERROR CODE 
RETURN 


SE@ 0103 


HAROWARE TESTS MACY11 3O0A(1052) 28-JUL-78 13:35 PAGE 36-8 
CZRXDA. P11 27-JU-78 09: 00 MOD U. PRT. EC - PRINT UNIT ERROR CODE SEQ 0104 
6599 J rr en nn enn ee en ene enn een mene cee e eee e eres cere senee= 
6600 030432 O4ON4S O20080 O37040 €EC1: .ASCIZ /2%A  ORIVE O FAILED TO SEE HOME ON INITIALIZE. XN/ 
6601 0305148 O40446 020080 O370480 €EC2: .ASCIZ /2A >DORIVE 1 FAILED TO SEE HOME ON INITIALIZE. XN/ 
6602 030576 O60es§ 020080 O37080 €EC3: .ASCIZ /2A IGMED ERR CODE. XN/ 
6E05 OS 020101 EC4: .ASCIZ /2A >TRIED TO ACCESS A TRACK GREATER THAN 76. XN/ 
660% 030718 Os0NesS GZ00NC O37080 ECS: .ASCIZ 2A WAS FOUND BEFORE DESIRED TRACK WAS REACHED. XN/ 
6605 031005 OS 020101 ECé6: -ASCIZ /RA SELF DIAGNOSTIC ERROR. XN/ 
666 108% O8088§ 020080 O37080 €EC7: .ASCIZ /2%A >OESIRED SECTOR NOT FOUND AFTER LOOKING AT 52 HEADERS. XN/ 
6607 031192 OsONs§ 020080 O37040 €EC10: .ASCIZ /%A WRITE FUNCTION ATTEMPTED ON A WRITE PROTECTED DISK. XN/ 
6603 1236 Os0"8§ 020080 O37080 €EC11: .ASCIZ /2%A >MORE THAN 80 FMICROSECONDS AND NO SEPCLOCK SEEN XN/ 
6609 031326 Os0e4§ 020080 E€C12: .ASCIZ /%A >A PREAMBLE COULD NOT BE FOUND. XN/ 
6610 031375 020101 O €ECi3: .ASCIZ 2A >PRE E FOUND BUT NO 1D MARK FOUND WITHIN ALLOWABLE TIME. ty 
6611 031500 Os0Ne§ 020080 O37040 €EC14: .ASCIZ /%A >CRC ERROR ON WHAT APPEARED TO BE A HEADER. ERROR NOT SET. 
6612 031602 Ge0eNe§ O20080 O37040 €EC15: .ASCIZ /2%A K ADORESS OF GOOD HEADER DOES NOT COMPARE WITH DESIRED. % %N/ 
6613 031706 Os0Ne§ O20080 O37040 ECI6: .ASCIZ /%A 42-7 MANY TRIES FOR AN IDRRL XN/ 
661% 031752 O8ONeS O20080 O37040 €ECi7: .ASCIZ /%A >ODATA AN NOT FOUND IN ALLOTED TIME. %N/ 
615 08S 020101 020080 €EC20: .ASCIZ /2%A >CRC ERROR ON aie SECTOR FROM DISK %N/ 
6616 032108 Ge04ss O20080 O37080 €EC21: .ASCIZ /%A UNASSIGNED ERR CODE. XN/ 
6617 032141 O¥S§ 020101 O €C22: .ASCIZ /%A RW yoy tS FAILED MAINTENANCE MODE TEST. %N/ 
6618 032227 04S 020101 0200480 €EC23: .ASCIZ /%A >WORD COUNT =< rn 
6619 032264 040445 020040 037040 €EC24: ASCIZ /%A te at ERROR. % 
aa 032313 04S 020101 020040 €EC25 ASCIZ /%A WRONG KEY WORD FOR SET DENSITY COMMAND. %N/ 
6622 032374 EVEN 





HARDWARE TESTS MACY11 30A(1052) 28-JUL-78 13:35 PAGE 36-9 
CZRXDA. P11 27-JUL-78 09: 00 MOD U. INTR. 1 - INTERRUPT HANDLER #0 SEQ 0105 
bre .SBTTL MOD U. INTR. 1 - INTERRUPT HANDLER #0 
6626 032374 000240 NTHO: NOP 
6627 032376 013737 002226 032460 MoV UOAOR, INCSAD SET UNIT #0 ADORESS 
6628 24 004737 032430 CALL SVUTRG ;CALL MOD U. INTR.U - SAVE UNIT REG 
6629 032410 RTI ; 
6630 MOO U. INTR. 1 ----- GMD REGGE codeewenesonssqcssees ennsewtensaeeseaeneeeaeenne 
6631 
6632 
6633 
rox} SBTTL MOD U. INTR. 2 - INTERRUPT HANDLER #1 
6636 032412 000240 INTH1: NOP ; 
6637 032414 013737 002230 032460 MoV U1ADR,. INCSAD +SET UNIT #1 ADDRESS 
6638 032422 004737 032430 CALL SVUTRG +CALL MOD U. INTR.U - SAVE UNIT REG 
6639 032426 RTI ; 
6640 MOD U. INTR. 2 ----- END REA socewvwcesesncnrasserpnssecssssesnsnssaesesSansansees 
6641 
6642 
6643 
6644 
rot .SBTTL MOD U. INTR.U - SAVE UNIT REG 
6647 032430 000240 SVUTRG: NOP 
6648 032432 012737 000001 021446 MoV #1, ONFLAG SET DONE FLAG 


032440 013701 032460 MoV INCSAD, Ri + SAVE UUT ADDRESS 
032444 012137 002236 MoV (R1)+, CSRUUT ; SAVE UUT CSR 
032450 011137 002240 MoV (R1), ESRUUT + SAVE UUT ESR 


032456 000207 RTS PC ; RETURN 


032460 000000 INCSAD: 0 + INTERRUPTING UNIT CSR ADDRESS 


6649 
6650 
6651 
6652 
6653 
6654 
6655 
6656 *+MOD U. 1. U ----- EMD BORE Se ceresceeescccsncsnsagpesesesensenassOreeeeugnoes 
6657 
6658 
6659 . EVEN 

6660 

6661 





PARAMETER CODING 


CZRXDA. P11 


2532 054122 

5 126 
032564 051104 
032574 054105 


MACY11 30A(1052) 
27-JUL-78 09: 00 


c 9 
a y 13:35 PAGE 36-10 
MOD U R.U - SAVE UNIT SEG 


. TITLE PARAMETER CODING 
. SBTTL HARDWARE PARAMETER CODING SECTION 


+ THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 

+ THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
; MACROS ARE NOT EXECUTED AS ACH NE INSTRUCTIONS BUT ARE 
+ INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
+ MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
+ WITH THE OPERATOR 


GPRMA = MSG1,0,0.0, 177777. YES 


EXIT HRD 


MSGi: .ASCIZ /RX ADDRESS/ 

MSG2:; .ASCIZ posh one 
MSG3: .ASCIZ /DRIVE & 

MSG4: .ASCIZ 7EXPANS |ON- TYPE <CR>/ 


SEQ 0106 


PARAMETER CODING MACY11 30A(1052) 28-JUL-78 13:35 PAGE 37 
CZRXDA. P11 27- JUL-78 09: 00 SOFTWARE PARAMETER CODING SECTION SEQ 0107 
ont .SBTTL SOFTWARE P/RANETER CODING SECTION 
6754 344 
6755 + THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
6756 + THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
6757 + MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
6758 > INTERPRETED BY THE shah SOR AS DATA STRUCTURES. THE 
6759 + MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
6760 > WITH THE SPERATOR: 
6761 ;-- 
6762 
6763 032620 BGNSF T 
6764 
6765 032622 GPRML MSG6. 2.1, YES 
6766 032630 XF ERF 1$ 
6767 032632 GPRML MSG7.2.2 YES 
6768 032640 1$: GPRMD MSGS. 4.0. 177777.0.6. YES 
6769 032652 GPRMD MSGi1.6,0.177777.0.6. YES 
6770 032664 GPRMO MSG14., 10.0. 177777. 0.6. YES 
6771 032676 GPRM 86 MSG15.12 1. YE 
6772 032704 GPRML 8 MSG16.12 2. YES 
6773 032712 GPRML 3 86MSG17, My 100, YES 
6774 032720 XFERF 4§ 
6775 032722 GPRML 486s MPSG18. 124. YES 
6776 032730 GPRML  4=s MSG19. 1210, YES 
6777 032736 GPRML MSG20.12 20. YES 
6778 032744 GPRML MSG21.12 40. YES 
6779 032752 4§: GPRML 3 8 MSG22. 2.200. YES 
6780 032760 XFERF 5§ 
6781 032762 GPRMO MSG23. 14.0,.177777.0..76.. YES 
6782 032774 GPRMD MSG24, 16.0.177777.0.,76.. YES 
6783 033006 55: GPRML 4 MSG25. 2.400. YES 
6784 033014 XFERF 6§ 
6785 033016 GPRMO MSG26. 20.0.177777.1..26.. YES 
6786 033030 GPRMO MSG27, 22.0.177777.1..26.. YES 
6787 033042 6$: GPRML MSG5.0, 177777. YES 
6788 033050 EXiT SFT 
6789 
6796 
6797 . EVEN 
6798 


6799 033052 ENDSFT 
6800 





E 
PARAMETER CODING MACY11 30A(1052) 28-JUL-78 13:35 PAGE 38 
CZRXDA. P11 27-JUL-78 09: 00 SOFTWARE PARAMETER CODING SECTION SEQ 0108 

6802 aa he eae heat aaataeteteaietaiateietateneianeneetaaietaeataae 
6803 000015 CR==15 + CARRIAGE RETURN 
6804 000012 LF==12 aL 
6805 2 0 052524 042522 MSGS ASCIZ /FUTURE EXPANSION TYPE <CR> / 
6806 033106 042524 052123 051440 SCiZ /TEST SETUP HELP / 
6807 105 04 041522 MSG7 ASCII EXERCISE OPTIONS/<CR><LF> 
6808 033151 O40 020040 SCI! 7 OO = WRITE-READ-DATA CK & READ-DATA CK/<CR><LF> 
6809 3 O40 1 ASCII! 7 1 = WRITE ONLY/<CR><LF> 
6810 O33246 O20080 031040 036440 ASCII! 7 2 = WRITE-READ/<CR><LF> 
6811 033271 O40 0 3 ASCII! 7 3 = WRITE-RERD-DATA CHECK/<CR> <LFD 
6812 O40 0 ASCII! 7 4 = READ-DATA CHECK ONLY/<CR><LF> 
6813 0200%0 032440 036440 ASCII! 7 5 = READ ONLY (CRC CHECK)/<CR><LF> 
681% 033422 020080 O33080 036440 ASCI!| 7 6 = WRITE-READ-DATA CHECK ON ALTERNATE DRIVES/<CR><LF> 
6815 040504 040524 0 ASCI1 /DATA PATTERN OPTIONS/<CR><LF> 
6816 020080 O300%0 036440 ASCII! / 0 = RANDOM/<CR><LF> 
6817 033561 O40 020040 1 ASCII 7 1 = ZEROS/<CR><LF> 
6818 033567 O40 G200%0 020062 ASCII! 7 2 = ONES/<CR><LF> 
6819 03 020080 031440 40 ASCI! 7 3 = FLOATING ZERO/<CR><LF> 
6820 020040 032080 036440 ASCII! 7 4% = FLOATING ONE/<CR><LF> 
6821 7? O40 G20040 ASCI! 7 5 = 125/<CR><LF> 
6822 033673 G0 020040 ASCI! 7 6 = 333/<CR<LF> 
6823 124 040522 045503 ASCI: /TRACK SEQUENCE OPTIONS/<CR><LF> 
6824 033737 O40 020040 ASCII! 7 OQ = RANDOM/<CR><LF> 
6825 020040 O30440 036440 ASCII! 7 1 = INCREMENT 0. D. 7<CR><LFD 
6826 034005 O40 020040 2 ASCI! 7 2 = DECREMENT 1. D. /<CR><LF> 
6827 020040 031440 036440 ASCI!| 7 3 = INCREMENT 0. D. -DECREMENT |. D. /<CR><LF> 
6828 034102 G20080 032040 036440 ASCI!| 7 4% = BOUNCE BETWEEN |.D. & 0.0. /< EE at 
6829 034145 O40 ASCI| 7 5 = BOUNCE BETWEEN INCR. 0.0. & DECR. 1.0. /<CR><LF> 
6830 034224 020040 036440 ASC'!| / 6 = BOUNCE BETWEEN 0.D. & DECR. 1. 0. /<CR><LF> 
6831 034275 O11 027117 027104 ASCII 7 0.0. = OUTSIDE DIA. & 1.0. = INSIDE DIA. 7<CR><LF> 
6832 034360 054524 021040 ASCIZ /TYPE "CR" TO CONT INUE/ 
6833 054105 051105 044503 G8: ASCIZ /EXERCISE @ (0-6)/ 
6834 034417 1 052101 020101 MSGii: .ASCIZ /DATA PATTERN # (0-6)/ 
6835 051124 041601 020113 MSGI4: .ASCIZ / SEQUENCE 
6836 034473 111 0201 042524 MSGi5: .ASCIZ /IS TEST TO RUN LE ITY 7 
6837 111 0201 042624 MSG16: CiZ 1S TEST TO RUN iN DELETED DATA MODE / 
6838 034602 047101 020131 051120 MSG17: .ASCIZ /ANY PROGRAM CONTROL FLAGS / 
6839 Om 042522 MSGi8: .ASCIZ / RETRY ON ERROR. LOG SOFT & y ERRORS / 
6840 034710 020080 061080 041505 MSG19: .ASCIZ /  RECALIBRATE ON SEEK ERRORS / 
6841 034747 O40 Q© 061120 MSG20: .ASCIZ / PRINT ONLY 10 DATA ERRORS & CONTINUE / 
6842 QO O414480 042514 MSG21: .ASCIZ / CLEAR STATISTICAL TABLES BEFORE NEXT PASS / 
6843 047516 O449S50% 054506 MSG22:; .ASCIZ /MODIFY TRACK ADDRESS LIMITS / 

036133 O 052517 MSG23: .ASCIZ / OUTER DIAMETER AOR : . 
6845 036164 020080 O44440 047116 MSG24: .ASCIZ / INNER DIAMETER ADR & 

6 036215 115 042117 O43111 MSG25: .ASCIZ /MODIFY SECTOR meee Limits / 

6847 253 O40 O 044515 MSG26: .ASCIZ 7 MIN SECTOR ADR 

035301 O40 020040 040515 MSG27: .ASCIZ 7 MAX. SECTOR ADR i , 


PARAMETER CODING 


CZRXDA. P11 


035330 


035562 


036162 


036562 


037164 
037164 
037164 


MACY11 30A(1052) 
27-JUL-78 09: 00 


000232 
000400 


000400 


000000 
037164 


F 
softeat 78 13:35 PAGE 3 


8-1 
FTWARE PARAMETER CODING SECT ION 


TRKTBL: .REPT 154. 
.B 000 


YTE 
. ENON 
DATPAT: .REPT 256. 
.B6YTE 000 
. ENON 
DATBUF: .REPT 256. 
.BYTE 000 
. ENOM 
PATCH: O 
. =. 4400 
LASTAD 
LSLAST: : 
ENDMOD 


+ TRACK TABLE 


;DATA PATTERN 


;DATA BUFFER 


SEQ 0109 





PARAMETER CODING 


DOCTOR. P11 


MACY11 30A(1052) 
17-FEB-78 09: 08 


28-JUL-78 13:35 


PAGE 39 
DIAGNOSTIC SUPERVISOR -- LOW CORE SET UP 


. SBTTL OIAGNOSTIC SUPERVISOR -- LOW CORE SET UP 
a 5 oe FOR USER POOL POINTER 


WORD O CHECKSUM (NOT CURRENTLY roe 


“WORD O Z— OF H.W PTAB. ALLOCATI 
END. SUPV=. +2 
-END 200 








ASSEMBLY ROUTINES 


DOCTOR. P11 


ABOFLA 037510 G 
037426 G 

ABORT 002206 
AB0.FN 041770 

s 021242 
AOVTRK 
AFSI 037216 G 
ALL 130 
APT. ER 1120 
ASSENMB= 000010 
RSAAY 3766 
ASARM 860044002 
ASARX 044014 
ASARY 044022 
Peng 4036 
REGEA 4 
BAUZM 021342 
BORUZI 14 
BOROO 010152 
80A121 011124 
B0A1I33 015076 
BOAZ41 021740 
BDAZ25 025124 
BOR26 026610 
BOAKO 72 
808UZ23 021472 
80800 010042 
80820 015226 
808241 
psy 15652 
OGM. SUs 037164 
BINASG 056440 
81TO 2 QO0001 G 
81TOO = 000001 G 
8iT01 = 000002 G 
81T02 = GOOOOY G 
81TO3 = 000010 G 
81TOs = 000020 G 
81TO5 = GOOONO G 
81T06 = 000100 G 
81T07 = 000200 G 
81TOS = GOOSOO G 
81TO9 = 001000 G 
8iT1 ss Q00002 G 
81T10 = 002000 G 
81T11 = GOSO00 G 
81T12 = 010000 G 
81T13 = 020000 G 
81T14 = O80000 G 
81T1S = COOONO G 
8ITZ =» GOOCOO4 G 
BITS = 000010 G 
81T4% ss 900020 G 
BITS = OOOONO G 
81T6 = 000100 G 


MACY11 30A(1052) 
17-FEB-78 09: 08 


H 
28-JUL-78 13:35 PAGE 40 

CROSS REFERENCE TABLE -- USER SYMBOLS 
8397 83983 8406 8449 8744 10782 
87453 118478 119222 

42318 4242 4254 4 393% 

5564% 55752 5580 55852 5596% 56038 
4964 4973% 49958 

150708 

12313 

4983 

4960% 49938 5425% 5427% 

5989 

3244 

3243 

3242 5022 5253 6109 6151 
3241 5258 6092 

3240 6105 6108 

3238 

3237 

3236 

3235 

6106 

5640 6103 6129 

5648 6090 

5650 

32288 

4496 


119238 


5625% 


121908 


12315% 


133648 


SEQ 0111 
139353 





ASSEMBLY ROUTINES 
DOCTOR. P11 


MACY11 30A( 1052) 
17-FEB-78 09: 08 


28- JUL-78 


75498 
17741 


6808 
6821 


4866 
4934S 


57758 
5736 


17185 


11571 
16032 


8903 


8840s 


6073 


6119 
10238 
17340% 
173418 
17341 


173008 

11734 

11857 
5289% 
5293 


8168% 


6809 
6822 


1 9 
13:35 PAGE 40-1 
CROSS REFERENCE TABLE -- USER SYMBOLS 


4948% 49928 6410% 
5738 5751 5753% 
17193 {7212 17220 
11613 12222 

8931 8943 95368 
90598 

6125 

10332 

11743% 11754% 17737 
11880 11905 

5294 5300 53198 
5299 53208 

8170 11484 11486% 
6810 6811 6812 
6823 6824 6825 


6412% 


57768 


11788 


12183 


6813 
6826 


11873 


12185 


6814 
6827 


6815 
6828 


6816 
6829 


6817 
6830 


SEQ 0112 


6818 
6831 





J 
ASSEMBLY ROUTINES MACY11 30A(1052) 28-JUL-78 13:35 PAGE 4 


0-2 
DOCTOR. P11 17-FEB-78 09: 08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0113 
CRCBRT 002250 3331 
CRCERT 002252 33328 6364 6379 
CRLF 056642 13164 13356 13469 140108 14080 14599 14604 14610 14616 
CSADR 2 52653 5301% 5538 5543 56078 5619 5622 5638 5646 
CSEC 017472 5231 5244 53108 
CSRADR 021552 rt Sp pf ae 43723 «644208 «645032 645112 5619% 5667 5674 5675% 5676 56828 5799% 
CSREV 023416 57928 5795 5839 5843 5894 59158 
CSRUUT 002236 33268 42378 5674% 5792 6537 6650% 
CTKO 002314 3398 6540 
CcTK1 002315 3958 6540 
CTRK 017502 5225 5240 53148 
CURR.S 037172 G 69268 115532 
CURR. T 037174 G 69278 8363 8408% 8828  10240% 10252 
CURSEC 020106 52478 52873 5289 53508 5362% 54148 
CURTRK 020442 52432 5283 5444x 5457% 5464 5466% 5467 5469 5477x 5482% 54928 
C¥STUT 002532 36288 86649148 
CVUNIT 002526 3605 3607 3613 36218 8 4144% 
CV¥VUTST 002426 36038 41453 
CSAAD 8 051532 11596 119368 
CSARE 051544 119378 
CSARK 86052542 12209 122478 
052706 123598 
CSABRT= 000021 30188 
CSAOR = 000020 30188 6264 6271 6464 6472 
CsAU = 000054 30188 4217 
CSORK = 000022 30188 
C$8SEG= OO0004 30188 4249 4921 
C$8SU8= 000002 30188 
CSBUFF = 000030 30188 
CSCEFG= OO0046 301288 
SCLEA= 000012 30188 4120 
CSCLPis O00006 30188 4259 
CSCVECs 000036 30188 
000044 30188 3952 4257 
Cc 000053 30188 4564 
CSORPT=s 000024 30188 4 
= 000055 30188 4182 
CSEDIT= O00002 30188 3061 
CSEROF = G0000Z 30188 6464 
CSERHR= OO000S 30188 6271 
CSERSF = 000001 30188 6472 
CBee 000004 30188 6264 
CSESCA= 000010 30188 
CSESEG= OOC00S 30188 4260 4982 
CSESUB= 000003 30188 
CSETST= 000001 30188 4268 
CSEXITs GO0032 30188 3969 4104 
CSGMANs 000043 30188 4489 
CSGPHR= 000042 186 §=6—63946 
CSGPRi=s OO0040 30188 
000052 
CSINITs 000011 30188 3989 
CSIMLPs 000020 30188 5017 5248 
CSKMOF = 000035 30188 





K 
ASSEMBLY ROUTINES MACY11 30A(1052) 28-JUL-78 13:35 PAGE 40-3 
DOCTOR. P11 17-FEB-78 09: 08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0114 
CSLOOP= 000100 30188 
CSMANI= 000051 30188 4487 
CSMSG = 000023 30188 3493 
CSPNTB= 000014 30188 8 4142 4151 4392 4539 5750 5751 6385 6537 
CSPNTF2= 000017 30188 3950 4069 4071 
C 16 30188 3807 3820 
15 30188 6540 6541 6568 
CSPOIN= OOOO4O 
C$010 = 000377 30188 
000007 30188 
CSREFG= 000050 30188 3929 3935 
CSREQT=s OOO04NS 30188 
CSRESE= 000033 30188 4332 
CSREVis 000002 30188 3061 
Ts 30188 3744 
SSEFG= 000047 30188 
CSSPRi= OOO041 30188 5633 5651 
Cc = 000037 3953 3957 
CSTPRI= 000013 30188 
C 000031 30188 
CSWTH = 000026 30188 
CSNTU = 000027 188 
RCT 022300 57098 5733% 5741 57778 
T 002256 33348 
004562 38918 
DATART 33338 6361 
022302 5745s 5751 57788 
OATANS 57468 5751 57798 
13724 4628 46388 
DATAL 013742 4629 46468 
DATOUF 036162 5562 5716 5728 5766 68598 
DATBYT 014152 46388 4646S 46525 4664R 4669% 4O74R 4678K 4683K 4O89K 4701 4702 47138 
OATPAT 035562 4622 4625 5292 5560 5715 5727 68568 
DANTRT 002260 33358 
021250 55403 5556 5564 5575 5580 5585 5596 56068 
DDERCT 002266 33 
DECNSG 056454 13233 136218 
DELAY 021450 43353 4 4373% 44228 8 864505% 4514% 5621 56628 S5801% 5823%  5904% 
DELOAT 33218 43128 4314% 4950 4952% =84954R 5512 5877 
N 002222 33208 8643188 4%320% 5525 5819 5889 5898 
VORT G 33108 
DEV.CO 037176 G 69 117832 
OFPTBL 002140 G 
DI AGNCs 3018 
DIAG. T 037516 G 69838 77733 # 7775% 80333 83438 8382 8414 84162 3417 8418% 8426 8435 8765% 
8832 8923 98593 99892 99908 9991% 9998% 100038 10089% 10090% 101378 10141% 102412 
102453 102468 102478 10255% 102568 10333% 10334% 10722 10724% 10725% 10726 10728 10730 
10732. 10734 107368 10737 11542 1154 11544 115508 11551 11558% 115598 115628 11569 
115828 115848 115853 1 115872 115 11592 11602 11623 11625 116363 11659 11661 
116718 11674 117288 117298 117828 11794 119008 11906% 11908% 11909 11919 121308 12161 
121 122028 122038 12204 12211 122138 12214% 12215% 122238 12224% 173628 173632 17368 
17376 §=6©.17380)§=6©17382 869173918 173928 
OLOTER 004572 38928 
Y 02144 


4 5635 56558 
OMSGi1 022310 5750 57828 
OMSG2 022405 5751 57838 


ASSEMBLY ROUTINES 
DOCTOR. P11 


ONBIT = OOOO40 G 


32868 
5800 


MACY11 30A(1052) 
17-FEB-78 O09: 08 


4333 
5822 
5636 
16677 
17415 
44183 
49333 
5298 
4968 


L 
28-JUL-78 13:35 PAGE 


4336 


568 
440 


59878 


5995 


4343 4346 

66483 

175218 17642 

4955s 49978 
5527% 

5290 5296 

8410 8810% 
5041% 6404 

5504 55318 


4368 


6420% 
53228 


8815% 
6407% 


9 
40-4 
CROSS REFERENCE TABLE -- USER SYMBOLS 


4371 4374 4421 4512 


8888 8915 8968 11784 


5541 


11901 


SEQ 0115 
5638 5646 


n 9 
ASSEMBLY ROUTINES MACY11 30A(1052) 28-JUL-78 13:35 PAGE 40-5 
DOCTOR. P11 17-FEB-78 09: 08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0116 


630576 

03063 

030714 

031005 

031044 

022266 

4525 4527 45298 
3929 


3935 


NEOMEFWH—o 


OOOOOOOHOHOoOHHHoOHHHOOoOOoOOoOoH 


od 
& 


BBsseRes 
LS dod La) 
ot 
ooo 
ge te 


55988 
6369 6378 6381 63858 


AAAAAASSeeeee 
2 


mw iw we we i wee 
fe} eat ob 
of 


La] 
= 
i) 





ASSEMBLY ROUTINES 


DOCTOR. P11 

EIEZ1 016354 
EIEZ2 016666 
EIEZ3 §=—017336 
EIFi1 §©=©007246 
EIFZ0 015366 
EIF21 016330 
EIF 241 166 
EIHZ0 86015444 
E1H232 12 
EIH2§ 021126 
E1121 016324 
£11231 017564 
E1J23 4017402 
EIK23% 020772 
EINZO 015604 
EINZ41 022126 
E1243 §=©6024114 
ELAIO §=—6.010272 
ELAI1 010334 
ELAIZ § 010512 
ELAZ0 015206 
ELAZ31 017656 
ELAZM 020672 
ELAZs1 021724 
ELAZS 9 025146 
ELANO 86026714 
EL811 010400 
EL812 010572 
EL8121 011202 
EL820 015510 
EL822 016560 
EL8231 020016 
EL8232 020406 
EL82% 021014 
EL8241 ©022170 
EL825 025240 
EL826 026572 
ELCi1i1 010426 
ELC22 016606 
ELC231 020014 
ELC233 020642 
ELCZ™ 021160 
ELC282 022534 
ELC2¥% 026020 
ELO11 007322 
ELO0O 010206 
ELO21 016060 
ELoadt 016630 
ELO233 G20ses 
ELOZM 621130 
ELO26 026330 
EL0261 026146 
ake 011014 
ELE 016656 
ELEZ3 017332 


5089 
5182 


MACY11 30A(1052) 
17-FEB-78 09: 08 


28-JUL-78 13:35 PAGE 40-6 
CROSS REFERENCE TABLE -- USER SYMBOLS 


51958 
4035 
5042 


50848 
5291 


60258 


57248 


54828 


42598 
50438 


52868 


4038 4049 4052 4057 40608 
5045 5049 5051 5056 5059 5064 


52958 


5083 


SEQ 0117 


ey ROUTINES MACY11 30A(1052) 28-JUL-78 13:35 PAGE 40-7 
DOCTOR. P11 17-FEB-78 09: 08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0118 


021202 


9993 9994 11637% 
3616 36198 
40738 


48678 


177548 


4677 46958 

49868 

5390 53968 

54838 

5762 

5827 95 5908 59108 
6202 62048 


6196 
63878 





C 10 
ASSEMBLY ROUTINES MACY11 30A(1052) 28-JUL-78 13:35 PAGE 40-8 


DOCTOR. P11 17-FEB-78 09: 08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0119 
ENOSO §8=©.027054 64798 
ENVIRO 037236 G 69428 867544 75508 7552 7554% 7770 7828 8006 8090 8795 8823 8978 8980 
12177 121898 12309 
EOP.CH 066440 G 8079 8756 8986 173488 
EOP.FM 0% 8433 84628 
EOP. IN 044150 76513 76553 8424 8427 90648 
ERRFOR 052764 12157 123818 
051564 6 121168 
ERRORS 027541 64 
ERRREG O30044 62378 62733 6474% 65432 65468 
ERRSAY 024130 6010 60253 60308 
ERRTYP 002234 33258 8642363 4976 5640s 5648% 57238 5734k 5735% 5759 5763% 58308 5841s 5849% 


58553 58613 58633 5866% 5867% 5881% 5885% 5963 5964 5999 6025 6092 61953 
61993 62018 6203% 6237 6239 6273 6275 6276% 


ERR. HR 052522 122408 
ERR. MU 037166 G 69248 81678 
26 122428 12246 
ERRIFO 12167 123868 
021244 55 56048 
ERSVCT 024132 601 6013 6021% 6024% 60318 
015670 49103 50008 1 5761 5765% 6275% 
ERTi 025340 62878 304 
ERT1O 025533 62 6313 
ERT11 025565 62978 6314 
ERT12 025577 62988 6315 
ERTi3 025612 62998 6316 
ERTI4 1 63008 6317 
ERT1S 025710 63018 6318 
ERT16 §=©025743 63028 6319 
025352 62888 6 
ERT3 025363 62898 6 
ERTS 377 6307 
ERTS 025411 62918 6308 
ERTG 025425 62928 6 
ERT? 025457 62938 6310 
ERrts 6268 6311 
ERTS 0255. 62958 6312 
ESCLAS 027626 6456 65178 
ESC.PC 0515656 11627 116308 119418 
ESREV 023420 57933 6837 5864 5868 5879 5883 5886 5891 59168 
0 “238% 5676% 5793 5935 5945 6537 6651% 
ETCLAS 63238 
TSAY §=6024126 59613 5963% 60298 
ETTAS 024160 5974 60438 
T1 026760 6246 63048 
EvcrmD 023412 58153 68178 5818% 5819% 5820 5897% 5898% 5899 59138 
021636 56963 7098 
€ 023422 5810% a 
EVOVST 022432 56913 67918 
EvTsTR 021564 49693 
EVUTEC 024702 5693 61 
Ev.coU 037170 G 69258 114878 12123% 
EXAOR 016362 50138 50958 
E 016372 11 
EXCrP §=—01 0244 42308 4262 42718 6429% 
EXHCP 86015646 49053 86-4941 4943R 8=64956% = 49918 





ASSEMBLY ROUTINES 


DOCTOR. P11 
EXMSG 030356 
EXN 015642 
—x1 016412 
Ex2 016422 
Ex3 16436 
ExX4 16452 
Exs 016462 
Ex 016472 
Ex7 016506 
FCKMSG 013377 
FILL 057310 
> 000204 G 
FIRST 010310 
FLAGS 37230 G 
FLAGS1 037232 G 
FLAGTA 062462 
FLAG. | 044216 
FLA. SE 2430 
FLG MR 044156 
FLOATO 013752 
FLOAT1 014020 
FNE VY 
FORMCK 011440 
Forn. T 053060 
FREE 060366 
FUNCT 027513 
FUMEV 023414 
FSAU «6s 000015 
FSBGN = 000040 
FSCLEA= 000007 
FSOU = 000016 
FSEND = 000041 
F 000004 
Ff s 000013 
FSINIT= GCOO006 
FSI? = 000050 
FS$N0O = 000000 
FSNSG = 000011 
FSPUR = 000017 
FSRPT = 000012 
FSSEG = 000003 
F s 000005 
FSSRV = 000010 
FSSUB = 
FSS = 000014 
FSTEST= 000001 
060014 
GE TCHR 
GETCHN 062104 
3676 
GETSEC 017530 


02 
5103 


MACY11 30A(1052) 
17-FEB-78 09: 08 


6568 
49898 


1 
28- JUL-78 PAGE 40-9 
CROSS REFERENCE TABLE -- USER SYMBOLS 


65738 
5009 


14259 


76453 


8952 


13: 35 


143728 


8858 
11813 


12160% 
12305% 


9811 


8861% 
11883 


12161% 
12306% 


6784 


9919 


8863% 
11898 


12162% 


12307 


3698 


4921 


3698 
4982 
6780 


6788 
6877 


6788 


11843 


12 
12392 


8960 


12118 


163% 
a 


6799 


131608 


8966% 
12151 


12164 


10248 
12207 


12166% 


3969 
6763 


3989 
6788 


10720 
17082 


12167% 


4095 
6788 


4104 
6799 


SEQ 0120 
11605 11646 
12168% 12170 
4104 4130 
6877 
4120 4159 
6877 


Soa 


E 10 
ASSEMBLY ROUTINES MACY11 30A(1052) 28-JUL-78 13:35 PAGE 40-10 
DOCTOR. P11 17-FEB-78 09: 08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0121 


GETSW! 061100 157998 
GETTRK 02014 s 6 54s4e 
GETTST 015672 49238 
T 155718 15875 
¥V 016526 49623 865171 
GTOVFN 56 52638 52978 55034 
GTEX 01 4285 4574 
GTEXCD 010312 42 
x 01 42415 42788 
010436 4283 43328 
GTTK 014266 4743 47468 
GSEXCP= OOO400 30188 
GSHILI= 000002 30188 
GSLOLi= 000001 30188 
= 000000 30188 
GSOFFS= 000400 30188 4489 6723 6724 6725 6726 6765 6767 6768 6769 6770 6771 
6775 6776 6777 6778 6779 6781 6782 6783 6785 6786 6787 
GSOFSi= 000376 30188 4489 6723 6724 6725 6726 6765 6767 6768 6769 6770 6771 
6773 6775 6776 6777 6778 6779 6781 6782 6783 6785 6786 6787 
GSPRMA= 000001 30188 6723 6724 
GSPRMD= 000002 30188 6725 6726 6768 6769 6770 6781 6782 6785 6786 
GSPRMGL= Feit 4489 6765 6767 6771 6772 6773 6775 6776 6777 6778 6779 
000140 30188 
GSRADS= 30188 
GSRADO= 000040 30188 6781 6782 6785 6786 
GSRADF= 000200 30188 
GSRADL= 000120 petty 4489 6765 6767 6771 6772 6773 6775 6776 6777 6778 6779 
30188 6723 6724 6725 6726 6768 6769 6770 
T= 000100 30188 
GSXFER= 000004 30188 6728 6766 6774 6780 6784 6788 
GSYES = 000010 30188 4489 6723 6724 6725 6726 6765 6767 6768 6769 6770 6771 
6773 6775 6776 6777 6778 6779 6781 6782 6783 6785 6786 6787 
HARDER 002306 33468 861578 6164% 6260 6272% 6278 6281% 
HCORED 043726 6933 90278 
HCOREG 043636 6932 8064 90168 
HCORET 037452 G 69708 8014%  8055% 8066 8080 8082 8087 8101 8103 8104 8108 8789 
11619 11736 11740 11751 17739 
eC 004612 388 
HCRCBD 004622 8958 
HC. ADR 037222 69368 8013 
HC.0EF 037214 G 69338 
HC.DIA 037212 69328 
HDATA 004652 38988 
HOO 004662 38998 
HOTE1 025254 62698 62708 62718 
HELP = 000000 29988 863 3035 3053 3063 3083 3106 3135 31498 3196 3287 
3409 3430 3440 3448 3468 3478 3484 3506 3513 3519 3526 3532 
3548 3556 3563 3570 36518 3905 3959 3971 4097 4106 4153 4168 
4203 66668 6730 6743 6790 6868 
HERTZ. 043576 
HOL OSP = 171398 17383 
0 004632 8968 
00460 3893# 6159 
HURT 004642 38978 





ASSEMBLY ROUTINES MACY11 30A(1052) 28-JUL-78 13:35 PAGE ot 
DOCTOR. P11 17-FEB-78 09: 08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0122 
HH. ADR 037220 G 69358 8033 8043 
HSARB 486063256 16646 166978 
1A1211 011456 4471 44738 
1AZ4U1 024574 61518 
1AZ43 8602 5 
1AZ431 024212 60708 
1AZ432 024 60908 
1AZ433 024452 61258 
02134 56368 5643 
181211 011466 4475 
\ 604 61538 
18243 023646 59718 
182432 024266 60928 
182433 024470 61298 
1CUZ34 021354 56388 
1€1211 011512 4474 44808 
1C243| 023706 59828 
1C2432 024354 6096 61038 
10 1 4583% 4737 48768 
10COrP § 014716 48448 
IDENT1 O30046 6537 65488 
101211 011550 4485 44878 
10243 023622 59668 
E 021404 56468 
1€1211 011570 44908 
IFAN 706 39978 
iF 65388 
1FAUZS 021452 56638 
F 010126 42428 
1FAIO §©=©010256 42818 
1FAI1 =©010314 43 
FAIZ O01 43368 
1FAIZ1 011126 44068 
1FAZO 015162 49128 4919 
1FAZ1 8 015734 5015 5018 50208 
1FAZZ 1 51728 
1FAZ3 016726 52138 
1FAZ31 017604 53488 
1FAZ3Z2 020224 54488 
1FAZ33 O2Z0464 55058 
IFAZ 55468 
1FAZ% 021602 « 
1FAZN1 = 021702 57198 
1FAZNZ 022456 57958 
1FAZN4 024712 61818 
1FAZS 025126 62426 
1FAZ51 026042 63488 
1FA26 026536 64048 
1FRXO 026674 C4448 
1811 006726 3998 40028 
iF 010134 42448 
010540 4 3468 
1F8121 011154 44128 
iF61 013546 45858 
1°820 015250 


49258 
1821 015752 5021 50248 


G 10 
ASSEMBLY ROUTINES MACY11 30A(1052) 28-JUL-78 13:35 PAGE 40-12 


DOCTOR. Pili 17-FEB-78 09: 08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0123 
1F822 016540 51748 
1f823) 017020 5222 52298 
1F8231 017700 53668 
1F8232 020320 5465 54678 
1FB233 020516 5506 5511 55138 
1FB242 022554 57 58108 
1FB24% 024730 61878 
1F825 025176 62588 
16251 63508 
IF 826 64088 
1FB4O0 4 ©026740 64588 
1FCi1 §=©006742 4003 40068 
1FCOO §=6.10144 4243 42478 
1FCil 10406 43168 
1FC1Z 010650 4357 4361 43638 
1FC12Z21 011262 4424 44278 
1FC13) «=—-01 3554 45878 
1FC20 4015264 49228 
1FC21 »=—.015774 5025 50298 
1FC22 016566 5177 51798 
1FC23) 49017126 5249 52518 
1FC231 017722 5358 5361 53728 
1FC232 020336 54718 
IF C233 55158 
1FC23% 021016 55688 
1FC241 02 57368 
1FC242 022514 58028 
1FC244 024742 6188 61918 
1FC25 025232 6259 62668 
1FC251 026072 6351 63558 
1FC4O }§=6026774 6459 64668 
1FON 762 4007 40118 

010160 42518 
1F012 010660 4 3668 
1F0121 011302 4428 44318 
' 016026 50368 
F 1661 5173 51848 
1FO23) 486017144 52558 
1F0231 017740 53778 
1FO0232 020346 5472 54748 
1FO233 020546 5514 5518 55208 
1FO23% 021026 55708 
1FO241 14 57388 
1FO242 022672 5825 58288 
1FO244 024750 61938 
1F026 025316 62788 
10251 026102 63578 
1FEI1 =O 40168 
1FEOO 010172 42548 

106 4 3688 

1FE121 011310 44338 

016.344 50888 
FE 016636 5187 51898 
1FEZ23 017266 5273 5275 52778 
1FE232 020370 5475 54798 





oe OF" 
H 10 

ASSEMBLY ROUTINES MACY11 30A(1052) 28-JUL-78 13:35 PAGE 40-13 

DOCTOR. P11 17-FEB-78 09: 08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0124 

1FEZ34 021162 55908 

I1FEZ41 022030 5737 5739 57418 

1FEZ42 022706 5829 58318 

1FEZ44 024770 61% 61978 

1FEZ51 026160 6356 63708 

FFI ©=©=6007012 40188 

1FF1Z2 010726 43748 

1FF121 011320 44 358 

1 015334 49378 

1FF21 015726 50178 

1FFZ23) 46017274 52798 

1FF231 017746 53 

IF F232 54598 

1FF241 022040 57438 

1FF242 023150 5869 58728 

1FF251 026170 63728 

1FGi1 007020 40218 

1FGi2 011042 4365 4367 4381 4 3908 

1FGi2Z1 011550 4432 44 34 4436 44418 

1FGZ0 015354 49418 

1FG2i1 016122 5030 5032 50528 


1FG23) 017242 5252 5254 52708 





! <4 | 
ASSEMBLY ROUTINES MACY11 30A(1052) 28-JUL-78 13:35 PAGE 40-1 
DOCTOR. P11 17-FEB-78 09: 08 CROSS REFERENCE TABLE -- USER. es SEQ 0125 


1FL2Z0 86015460 4932 49588 
1FL21 4=6015714 50148 
1FL241 022224 57618 
1FL242 023104 5842 5850 5856 5862 58648 
1FNZO 015572 49768 
1FN21 016062 50448 
1FA241 022060 57478 
1FMZ42 O02 58578 
1FNZ21 016072 50468 
1FNZ42 023130 5834 5844 5865 58688 
1F021 016304 50798 
1FO242 023170 58778 
1FP242 023176 58798 
1FQ242 023216 5878 58838 
1FR24Z 023234 5874 5876 5880 5882 5884 58868 
1FS242 023276 5836 5871 5890 5892 58948 
1FT242 023364 59058 
1FU2%Z2 023252 5887 58898 
IF ¥242 3260 8918 
IF X242 58248 
1F1211 011610 4494S 
1G1211 011626 4495 44978 
1G24 023740 5962 59908 
141211 011700 4 

023774 5993 59998 
111211 011762 45168 
11243 O24034 6002 60108 
1J1211 011772 45188 
! 024046 60138 
INCSRAD 032460 66278 6637% 6649 66558 
INCTRK 015654 “964% 49728 49948 5279 5281 
INDITK 002170 31318 4308 4583 5434 
ININIT O37442 G 69648 10088% 10775 11635% 11780 
INIT 006330 39298 
INITER 006474 3934 39508 
INITIA 056470 137128 
INITL 010242 42328 42708 4902 4974x 5014 5229 5335 
INITTK 020454 4904S 8655436 5438% 54978 
INIT. A 044554 7831 8803 96318 
INIT. R 256 G 69528 10003 11638 

007 366 4069 4082 
INMSGS 007434 4071 40838 
INPUTA 057416 7560 13360 145768 
INTCHD 011422 4414S 44I7R 864419 44578 
! 004502 38858 
INTER’ 006622 3950 39868 
INTERZ 012116 4339 4387 45458 
INTERS 012214 4349 4383 45468 
INTERS 012314 4392 
wah y 052714 12302 123788 
INTHI §=©032412 3957 66368 
IMTLY 020104 5351 5359 5369 54138 


04 3522 7592 8817 89948 
0s J 


ASSEMBLY ROUTINES 


DOCTOR. P11 


aes 


00004 1 


NG ORO 8 ee ee te ee et et ee ee eh 


Je 


8339 
29 
ost 


374 
011542 
024630 


MACY11 30A(1052) 
17-FEB-78 09: 08 


J 10 

28-JUL-78 13:35 PAGE 40-15 
CROSS REFERENCE TABLE -- USER SYMBOLS 
4420 44598 4502 4503 4511 4516 4518 

4427 4435 44608 4475 4480 45083 

45638 

43832 4387 4 84425% 4429% «4437k 684447780 «644482R |= 5098 
4539 45428 

catte 43882 4Y438X 4478Kk 44B3e 8 4510% 4529% 45388 
4104 41208 

41828 

3969 39898 

31448 32068 36458 36988 68778 

34938 

37448 

42498 42608 49218 49828 

42688 

4201 

14455% 14456 14578 16892% 

13575 13589 14454 14457% 14621 16149 16179 17084 
61598 

6 6809 6810 6811 6812 6813 6814 6815 
6821 6822 6823 6824 6825 6826 6827 6828 
3737% 863777 3793% 3794 37988 

37408 3863794 37998 

8086% 9401 

3778 38008 


4520% 45228 
17087 

6816 6817 
6829 6830 


SEQ 0126 


45248 


6818 
6831 






L11211 


ASSEMBLY ROUTINES 
DOCTOR. P11 


OOOOOOOOGOOHOOOOOOGHOHOHOHOOOOHHOHOOHOOOOHOOAHHHOOOOOOHOOHOOOH 


: 
> 


4517 


MACY11 30A(1052) 
17-FEB-78 09: 08 


45228 


31228 










K 10 
28-JUL-78 13:35 PAGE 40-1 


6 
CROSS REFERENCE TABLE -- USER SYMBOLS 


4675 4690 47018 
8844s 90668 


6072 609% 60978 61012 6135% 6138" 6148 6165 


8105% 14798% 
14711 147178 14794 
170828 


115728 11574 11575 1161498 11705 11711 117198 11724 





a 


ASSEMBLY ROUTINES MACY11 30A(1052) 28-JUL-78 1 
DOCTOR. P11 17-FEB-78 09: 08 CROSS REFERENC 


LSTIM@& 002014 
002054 


L 10 
3:35 PAGE 40-17 
E TABLE -- USER SYMBOLS SEQ 0128 


G 30618 
' G 30618 
LSTIM G 30618 
STi 002100 G 30618 
— 002012 G 30618 3933 3944 
110000 002150 31128 
110001 002176 31428 
L10002 2330 34938 
L10003 003040 37448 
L1000% 006672 3969 39898 
110005 007520 4104 41208 
110006 010030 4159 41828 
110007 010036 4201 42178 
110010 010240 4 
110011 03 6721 6728 67358 
L10012 033052 6763 6788 67998 : 
MAJ. IN 037246 G 69488 116788 11695% 17173% 17259 17291 
MAJ.LO 064656 171378 17210 17259% 172838 17290% 17291% 17292 
MAJ.US 037 G 69498 11889 17292% 
MAN. Ti 001244 8097 81 
MAPIG §=©6067364 G 9481 9540 9592 176338 
MASK. B 046266 9480 9485 9490 9539 9544 9591 9596 103658 
MASK. W 046264 9479 9482 9538 9541 9590 9593 103638 
MAXSEC 002174 31338 5366 5372 5377 5379 
020% 36 Sues 5464 5471 5474 5479 54908 
MCRORT 026503 6380 63958 
MCUTRT 026452 6365 6398 
MORORT 026375 6377 63928 
T 026316 6362 63908 
Men. Si 90138 
MINSEC 002172 31328 86534 5362 5363 5364 5366 
020434 5435s 5444 5466 5467 5479 5482 54898 
MIM 1M O37242 G 69468 116798 116962 17174% 17260 17263 17288 
MIM US O37244 G 69478 11891 17289% 
066726 G 84 174248 
PRORT 026426 6383 63938 
MSG.AD 037210 G 69318 
MSG. TY 037164 G 69238 81693 8172% 8982% 
MSG1 03 6723 67378 
MSG11 4034417 6769 68348 
MSG14 4 67 68 
MSG16 034473 6771 68368 
MSG16 536 67 4 
MSG17 034602 6773 68388 
MSGiS 034635 6775 68 
mSGi9 034710 6776 6 
032545 6724 67388 


a 
& 
oe 
“N 
[27] 
- 
oe 
2 
£ 
se 
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ASSEMBLY ROUTINES MACY11 30A(1052) 28-JUL-78 13:35 PAGE 40-18 
DOCTOR. P11 17-FEB-78 09: 08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0129 
nSG3 6725 67398 
fiSG4 032574 6726 67408 
MSGE, 787 
MSG6 033106 67 
MSG? 033127 6767 68078 
376 6768 
MSKRT 026272 6353 63898 
MUL 066662 G 8039 9402 9820 174078 
TwTRT 026350 6368 63918 
NEWPRI 066406 G 8005 11687 17177 17209 173298 
NENTRK 019776 4772 4782 4 4822 4837 4856 48588 
NEXTAR 2646 164788 16890 16971 17031 
RL 004462 38838 
WO 04 3552 89988 
FLA 062442 16263 6 
NO.LPT 057760 14713 147378 
04 3756 
wa = 000001 33108 
WSEC 020072 5345 54088 
NUMBIN 053104 126038 13397 13428 15578 15590 15842 15941 16927 16950 17019 
Nur. LA 12636 126418 \ 
NUM. NO 6037226 G 69388 8092 
NUPL UN 73568 4387612 8411 8969 
NUNITS ©8622 9805 103588 
NXSCSA 020054 53973 854018 
NXTFOR 062722 65378 16894 16898 16906 
OCTHSG 056446 13228 136208 
00 015056 43078 486446823) 0 =—«4735 4739 48758 
00C 014730 4845 48478 
ONEF 1L= 000001 18988 3039 3145 3146 3159 3647 3648 3661 6676 
OTDITK 002166 31308 4307 4582 5226 5237 5435 
OTOVFN 020612 52668 53028 55378 
OTERTP 025106 49783 8662378 
OTEXCH 026626 42613 64268 
026650 4 64358 
021260 5557 5565 5576 5581 5587 5597 56188 
OSAPTS= 000001 30188 30518 3061 
oseu = 000001 30186 30518 3061 
OS8G@R= 000001 30186 30518 3061 
000001 30188 30518 3061 
os0U_ = 000001 30188 30518 3061 
OSGNSM= 000001 30186 30518 3061 
0SP°0iN= 000001 30188 30518 3061 
OsPim = 000001 30518 
0. OOT = S8Ezs3 U 6912 
PRE 003330 37608 437778 4 3785% 3807 38108 
PARSES 062156 7566 486161468 
PAR.LA 056194 13215 135128 
PASS.C 037200 G 69298 17% 
PAT 014154 45778 864615 46173 4618 47148 
PATCH 036662 68646 
PAT125 014026 632 46748 
PAT333 014052 4633 46838 
013730 46398 84642 4647 
006616 3968 8939838 8 399% 


38068 


3 
a] 
| 
«+ 
ae 
8 
8 
ae 
4 
oe 
ta 
“N 
3 
ee 
w 
~J 
3 
Be 
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ASSEMBLY ROUTINES MACY11 30A(1052) 28-JUL-78 13:35 PAGE 40-19 


DOCTOR. P11 17-FEB-78 09: 08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0130 
PREPTZ 003332 37558 37823 8638198 
PRESCK 014742 4848 48508 
PRESTK 015050 47328 647348 | =—-4766 4776 4829 4850 48653 48728 
PRIOXX 003506 3715 38348 
PRI001 003554 3834 38568 
PRI0OZ2 03603 3835 38578 
PRIOGS 003632 3836 38588 
PR 100% 1 3837 38598 
PRIOOS 003710 3838 3 
PR 1006 37 3839 38618 
PR 1007 3840 38628 
PRIOOS 004015 3841 38638 
PR 1009 4 3842 38648 
PRID10 004073 3843 3 
PRIDI1 22 3844 3 
PRIDIZ 004151 3845 38678 
PRIOIZ 200 3846 38688 
PRID1% 004227 3847 38698 
PRIOIS 004256 3848 38 
PRIDIG 004305 3849 38718 
PRIDI7 OO4334 3250 38728 
PR 1018 363 3851 38738 
PRIDID 004412 38748 
PR INTC 14727 147938 
PRINTF 063276 8391 8439 10254 11657 12165 12171 12308 168748 
PRIOO = G 32138 32818 5633 
PRIO1 = 0G 32138 
PRIGZ = 000100 G 32138 32798 
PRIG3 = 000140 G 32138 32788 
PRIOY = 000200 G 32138 32778 
PRIOS = 000240 G 32138 32 
PRIOG = 000300 G 32138 32 
PRIOG? = COOWC G 321 32748 8 8=663953 3957 5651 
PRNTST 057660 147078 17 
PRNUM = 003300 37138 48637248) )«=— 37388 = 33775 38018 
PRO.CH 044130 8345 87463 8 8837% 8690538 
PRTOAT 003144 37178) )=—-37308)=— 3742837748 
PRTECD 002310 334 58963 65 65428 
62745 8664 65378 
PRTHOR 37108) §=637218 37353 8 37528 
PRTi 003140 37198 37333 37688 
PRTZ 003142 37098 §=637208) «637348 = 3761 37698 
PTAS.S 037460 G 69678 80413 8802 8826 98223 9844 
PTOATI O03%26 3788 
PTEC 003363 3719 38246 
PTECN  O03%56 3726 3728 38288 
PT 022306 57118 5747 57493 57808 
PTRTY 026040 62808 63478 
PTTK 003410 3733 38258 
PTTKN O03471 3741 38296 
PTUNTI 003436 709 3720 37354 38278 
PTI9SP 003354 3708 38238 
PuT 066474 12121 «#13347 13671 137738 14016 14018 14250 14258 14266 14268 14275 14277 14284 
19286 8614293 14295 14302 14378 17092 
PUR. FA 7620 ? 8740 @ 


8399 8403 100862 10093 177278 


~* 
am 
as 
3 
[>] >) 
eo 
R 
— 
Se 


peeraty ROUTINES 
DOCTOR. P11 


SEQ1 


AARRRN 
SERRIER 


17-FEB-78 09: 08 


14644 
626 
014702 


17735 
177228 


MACY11 30A(1052) 


177478 
17726 
177218 


8 ii 
28- JUL-78 PAGE 40-20 
CROSS REFERENCE TABLE -- USER SYMBOLS 


177458 
177253 


44863 
4450% 


4748 
4791 
4789 


4846 


177468 


48432 
35958 
35968 
44218 
5667 

44932 


44558 


175898 


11563% 
4750% 


4B4S 


13: 35 


4844 


4504% 
56818 


4496% 


6427 


5396% 
53218 


11564 
4751 


4851 


4847 
45122 


5800% 


4501% 


12317 
61 


11567 
48778 


4850 


55412 
58228 


4502 


5223 
5068% 
6357 
173908 
6133% 
6149 
5213 


11569% 


4852 


55548 
5903% 


5228% 


17743 
6137% 


5513 


11577% 


7 


5563% 55728 55792 55832 
5074" 5081% 5251 5255 
6370 6372 6374 

6156 6162 61728 

5928 

11580 11584 11587 


SEQ 0131 


5598 


5268% 


rey ROUTINES 


SVCSUB= 
SVC TAGs 


SVCTST= 
SVUTRG 


SWC HAN 
SWITCH 
SWREG 


OR. Pil 


O44 342 
027574 


046456 
177777 


177777 
177777 

177777 
032430 
043750 
062622 
002164 


037224 G 


MACY11 30A(1052) 
17-FEB-78 09: 08 


28-JUL-78 13:35 
8887 8890 94768 
61398 61478 
49988 
62648 

17645 176518 

90478 

5404 

173148 

5987 5988 60338 
5968% 5970% 60328 
14609 14628 16914 

8409% 8764% 8828% 
54228 

53893 54038 

8770 

4706 4707% 4708 

8807 8885 8912 

6934 87328 8737 

87398 139398 14011 

87368 87373 8738% 
17376 §=6©17378 17397 

4024% 40278 8 4O33% 
4390 4406 470 

36118 36153 3617% 
4149 150 41628 
4406 4444S 44638 
4912 49172 §=644918 

3061 3081 3099 

68768 

3061 3081 3099 

3936 3946 3947 

4142 4151 4159 

4392 4487 4488 

5651 5750 5751 

6723 6724 6725 

6771 6772 6773 

6784 6785 6786 

3112 3142 3493 

6799 

4225 

66478 

4281 4 302 4310 


11865 


4316 


C ii 
PAGE 40-21 
CROSS REFERENCE TABLE -- USER SYMBOLS 


15606 


16935 


90618 


14709 
10143 
17742 


4473 


15814 


16954 


16880 
10257 


4587 


16981 


10335 


4O55% 
6427 


4589% 


17055 


10784 


4058% 


5022 


17071 


11640 


41498 


5253 


11924 


4 360% 


5258 


SEQ 0132 


12191 


4 362% 


5743 





ASSEMBLY ROUTINES 
DOC TOR. 


Pil 17-FEB-78 09: 08 


002162 


9033 
64713 


116943 
98 


64728 
4244 
58703 


42538 


11680% 


4247 
5888% 


171728 
17239% 
123918 


48698 


4251 
5893% 


: D ii 
MACY11 30A(1052) 28-JUL-78 13:35 PAGE 40-22 
CROSS REFERENCE TABLE -- USER SYMBOLS 


4506 


5907% 


17278 17293 
17242% 


5572 
4853% 
5483 


5579 
48708 
54888 


47448 
5939% 


41208 
4797% 
4865 

5082% 


5583 


4980 
59498 


41828 
4 800% 


48718 
5084% 


5594 


5650 56732 58048 
6189% 6436 6474 
42178 42498 42688 
4804% 4814S 4818% 
50978 

5903 






SEQ 0133 


5808% 
64783 


5811 


44898 
48218 


ASSEMBLY ROUTINES 


DOCTOR. P11 


TSTEST= 
TSTSTM= 


000001 
177777 


MACY11 30A(1052) 
17-FEB-78 09: 08 


E 11 
28-JUL-78 13:35 PAGE 40-23 


68538 
5077% 


50988 
4965 
6129 
5697 
5048s 


5188% 
5087% 


4970 
57028 


5050% 


5189 
50968 


14623 
9910 
135688 

14581 


40718 


CROSS REFERENCE TABLE -- USER SYMBOLS 


49888 
5845 


50553 
52028 


14630 


11597 


16647 


41428 


67658 
67788 


5851 


5058% 


12210 


17088 


41518 


67668 
67798 


5857 


5067% 


12638 


41938 
39898 
67258 
67768 


3950 


5872 


50738 


12663 


5924 


5078% 


13409 


5085 


13458 


57518 


67708 
67838 


SEQ 0134 


5090% 


13506 


63858 


67718 
67848 


41828 
67658 
67818 


3969 






ASSEMBLY ROUTINES 


DOCTOR. P11 


TSTSTS= 000001 
$AU 


232 
888 

zq 
RAT 


SSSSSSRRS 


a 





MACY11 30A(1052) 
: 08 


F ii 
40-24 


PAGE 
CROSS REFERENCE. TABLE -- USER SYMBOLS 


4142 
4489 
6385 


39848 
41618 
4539 


8874 


Y44OR 
yO51% 
9822 


3783% 
40778 


42i7 
4921 
6537 


4071 


90498 


4499 
4062 


11713 


4348 


eae 


4 


SEQ 0135 
4259 4260 
5248 5633 
6568 
6537 
5215 5333 





ASSEMBLY ROUTINES 
DOCTOR. 


Pil 


MACY11 30A(1052) 
17-FEB-78 09: 08 


28- JUL-78 


55623 


10258 
173618 


89878 


8450 
101368 


5794% 


4766 
4770 


172668 
56518 


15572 
16257 
gs oh 


38938 


6 
79948 


5211 
5546 
5573% 


10336 


84528 


5909 


4780 
4771% 


6784 
6780 


45318 


176768 


81338 


G 11 
13:35 PAGE 40-25 
CROSS REFERENCE TABLE -- USER SYMBOLS 


5712 

5550 5552 
5574% 5577% 
173658 

5990 6179 
4781% 4800 
4776 4797 
6784 6788 
15433 15800 
15071 176978 
38828 38838 
38958 38968 
4755 63968 
68658 6883 
9000 90398 


5558 
55783 


6540 


4809 
4809 


16628 


5568 
55842 


6559 


4818 
4814 


16875 





6561 


4819% 
4815% 


176898 


6569% 


4827 
4827 


4831 
4829 


48328 
4834 









H 11 
ASSEMBLY ROUTINES MACY11 30A(1052) 28-JUL-78 13:35 PAGE 40-26 
DOCTOR. P11 17-FEB-78 09: 08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0137 


99478 102678 103648 103668 119388 123858 123888 123918 123938 126778 135278 135318 147398 
148188 162878 166988 177488 17754 


ASSEMBLY ROUTINES 


DOCTOR. P11 


BEER Ere b. 


PERI EL Pr EEL, 


&es &e&e 
FFSREEP 
fess 


6068 
6108 


MACY11 30A(1052) 
17-FEB-78 09: 08 


3206 


4921 


3947 


4257 


3645 


4982 


28- JUL-78 


3698 


4488 


6877 


5018 


! ™ 
13:35 PAGE 4 
CROSS REFERENCE TABLE -- MACRO NAMES 


5249 


JL Biss Corer pe ee es er ei 
ASSEMBLY ROUTINES MACY11 30A(1052) 28-JUL-78 13:35 PAGE 41-1 caf 
DOCTOR.P11 17-FEB-78 09: 08 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0139 


EXIT 6418 30188 3969 4104 4159 4201 6728 6788 
EQUAL 


F 6848 30188 
30188 


GPRD 7668 30188 6725 6726 6768 6769 6770 6781 6782 6785 6786 
GPR 7888 )48=630188 8644898 866765 6767 6771 6772 6773 6775 6776 6777 6778 6779 6783 6787 


1OSTAR 258 30188 
LASTAD 8338 30188 6876 
MANURE 839¢ 8630188 4487 
16328 30188 30618 
MSCHEC §=618308 8630188 98 41048 41598 42018 67288 67888 


17708 30188 38078 38208 39508 40698 40718 %4Y142# 41518 43928 45398 57508 57518 63858 


65418 6 
MSORTA 15198 30188 30618 34298 
MSOECR Hh 30188 okt 31428) «8631448 860634938 8=60936458@ 86937448 86939898 8941208 41828 42178 42608 42688 


67998 
MSOEFA 18828 30188 “4898 67238 67248 67258 67268 67658 67678 67688 67698 67708 67718 67728 
MSENDE 17788 30188 31128 31428 31448 34938 36458 37448 39898 41208 41828 42178 42608 42688 


MmSEXIT 1 30188 39698 4104@ 41598 42018 67288 67888 
16640 30188 41048 41598 42018 67288 67888 

MSEXTJ 861 30188 41048 41598 42018 67288 67888 

MSGEN 17426) «=6—630188 §=©30618 30818 3 3112@ 8631228 31428 33108 34298 34668 34938 37068 37448 
ree 41208 8641308 41828 41938 42178 42258 42608 42688 44898 49828 67218 67358 


67358 6 67748 67808 67848 67888 67 68778 
MSGETT 15286 30188 39698 41048 41598 42018 67288 67668 67748 67808 67848 67888 
MSGNGR 86165498 30188 30448 30618 30818 3 31228 863 33108 34298 34668 36988 37068 39278 
41308 91938 67218 67638 68768 
MSGNIN 17636 30188 30618 30818 31228 3108 §8=634298 «8634938 8637448 8078 38208 39298 39308 
39368 39528 39578 639698 39898 40698 40718 4 41428 
41698 81828 42018 %2178 42578 42598 4 42668 42688 43328 43928 44878 8 44SBE 
S6648 49218 60178 50188 52488 52498 56338 56518 57508 57518 62648 62718 
64646 65418 ® 67218 67238 67248 67258 67268 67288 67358 67638 
67678 67688 67698 67708 67718 67728 67738 67748 67758 #67768 67778 #67788 67 
67818 67826 67838 67848 67858 67868 67878 67888 67998 68768 
MSGMLS 15666 30188 42608 44898 49828 


MSGNSU 615458 
MSGNTA 15378 30188 31128 31428 34938 37448 39898 41208 41828 42178 “268% 67358 67998 









DOCTOR. P11 
MSGNTE 15418 
MSHAPT =: 14218 
NSHP 0s: 14768 
MSINCR 17308 
39358 
41518 
45398 
65378 
MSIOSE 13818 
MSLORO 806: 15848 
MSMASK 8613528 
MSNCHI 38 
MSMCLO 8612948 
MSNSKi =: 1 3588 
nSPOP 15288 
67358 
MSPRIN § 13068 
65408 
MSPUSH 13018 
49218 
MSPUT 16046 
MSPUT1 8616138 
MSRADI «=: 17818 
67758 
moO 15948 
MSSETS 17368 
49218 
MSSTAR 14158 
MSSVC 15758 
40698 
42688 
63858 
MSTLAB 8616718 
40698 
43928 
63858 
MSTSTL 15638 
40698 
43928 
63858 
MSHORD 16268 
67246 
67768 
MSXFER 8613638 
POINTE Su 36 
PRINTS S308 
PRINTF 938 
PRINTS 9768 
PRINTX 10168 
RERDBU 8 10568 
RERADEF 10608 
REQTIN 10658 
SE TEF 10708 
SETPRi 10758 


ASSEMBLY ROUTINES 





MACY11 30A(1052) 


17-FEB-78 09: 08 


28- JUL-78 





13: 35 








K 11 
PAGE 41-2 


CROSS REFERENCE TABLE -- MACRO NAMES 


41208 
43928 
39278 
41428 
41428 


67688 
67868 


39278 
39508 
42178 
50178 
39508 


42578 
56338 


39508 
42578 
56338 
44898 


67708 
67858 


6537 


62648 





SEQ 0140 
39278 863 
41308 41428 
44878 86644898 
64648 64728 





L ii 

ASSEMBLY ROUTINES MACY11 3OA(1052) 28-JUL-78 13:35 PAGE 41-3 
DOCTOR. P11 17-FEB-78 09: 08 CROSS REFERENCE TABLE -- MACRO NAMES 
SETVEC 10808 30188 3953 3957 
SLASH 10868 30188 
STARS 11008 30188 

Cc 11148 §=©30178 3018 
TRAPPR 12628 30188 

UFF 12678 30188 
WAIIMS 12728 30188 
WAITUS 12778 30188 
xFER 12828 §=6©630188 §=69©39698 §=64104% 41598 42018 67288 67888 
xF ERE 12868 30188 6766 6774 6780 6784 
XFERT 12908 30188 


. RBS. 067770 000 


ERRORS DETECTED: 0 


CZRXDA. i ey SEQ/NL: BEX/CRF=CZRXDA. SML, CZRXDA. P11, DOCTOR. P11 
RUN-TIME: 29 34 4 SECONDS 

RUN-TIME RATIO: 295/68=4. 2 

CORE USED: 20K (39 PAGES) 


mona 


